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TODO SON VENTAJAS 

Conseguir tu ordenador AMSTRAD 
PCW8256 en COMPUTIQUE esjugor 
con ventaja. Gratias a la amplia 
experiencia profesional de COMPUTIQUE, 
te sera mas foe// obtener un mayor 
rendimiento y prestations del PCW 8256 
\y en un tiempo record! 

Y es que COMPUTIQUE te obsequia 
con un CURSO GRATUITO DE MANEjO 
DEL PROCESADOR DE TEXTOS, HOjA 
DE CALCULO, BASE DE DATOS para que, 
en pocos dias, manejes tu ordenador 
AMSTRAD como un experto. 


TODO UN SISTEMA 
INFORMATICO 

No olvides que el AMSTRAD 
PCW 8256 es, en si, un autenuco Sistema 
Informauco puesto a tu servicio, ya que 
incluye en su precio (129.900 + I.V.A.j: 
Teclado profesional. Unidad central. 
Pantalla de alta resolution. Unidad de 
disco. Impresora. Programas en discos: 

• Mallard BASIC con sistema JETSAM 
para ficheros indexados. 

• Sistema Operativo CP M Plus. 

• Procesador de textos LOCOSCRIPT. 

• Lenguaje Dr. LOCO. 


Servimos a uendas. 
Abrimos sabados por la tarde. 


Embajadores, 90. Tel. 227 09 80 
28012 Madrid 


* Diversas uulidades. 
Completa documentation y manuales 
en castellano. 

Nada pierdes con hacernos una visita. 
Te haremos una demostracion sin 
compromiso. De paso nos cuentas lus 
necesidades informaticas y cambiaremos 
impresiones sobre un tema que a ambos 
nos gusto: LOS ORDENADORES. 
,Te estamos esperandol 
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Primera 
plana 


Amstradlanza su quinto ordenador: el PON 65] 2, 
sucesor del 8256 y con el doble de memoria. 
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Primeros 
pasos 

La estructuracion de los prog ra mas depende 
criticamente de ser capaz de dividir un problema en 
partes mas pequenas, claras y manejables. Todo esto 
esla muy bien, pero para trasladar esto al Amstrad 
hay que usar las subrutinas. 






Mr. Joystick 


Tornado Low Level: el scroll de pantalla mas 
rapido y suave que nunca se ha visto en el Amstrad. 


Primeros 
repasos 

Mas acerca de las variables y de como usarlas en 
programas. 


ProgramAcion 


Una de las cosas que muchos usuarios de Amstrad 
han echado en falta, sobre todo si vienen de otros 
ordenador es, es la posibilidad de volcar en todo 
momento el contenido de la pantalla a la impresora. 
Bien, AMSTRAD Semanal ha resuelto el 
problema... en Basic y codigo maquina, para muchas 
impresoras. 



Analisis 


Prueba tus reflejos con Cronotest y aprende a 
manejar los comandos AFTER y REMAIN. 




Amstravagancia 

Leyes de Murphy, el porque de las cosas. 

Serie Oro 

Acaba con las naves alienigenas que atacan tu base 
espacial en el asteroide belt. 


Codigo 
Maquina 

Las instrucciones de comparacion de bloques son 
absolutamente imprescindibles para manipular cadenas 
de caracteres en maquina y otras muchas cosas. 




michohossyAMSTRAD 3 


Si eres lector habitual 
de esta revista 



Te estoy esperando. 
Tengo muchas cosas que 
contarte... y muy interesantes. 
De momento, te propongo la 
posibilidad de AHORRAR 
1.600 ptas. y, ademas, con un 
poco de suerte, GANAR UNA 
VESPINO iQue te parece? 
Pues esto es solo un avance. 
Cuando me llames te contare 
mas cosas que seguro te gus- 
taran. 

Pero no te demores, porque 
a una mujer nunca se le hace 
esperar. Tienes de plazo has- 
ta el 31 de marzo. Despues, 
habras perdido tu oportuni- 
dad. 


HOBBY PRESS, S.A. 
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i nuestros lectores al 
leer el titular de la noticia se temen 
lo peor, aciertan plenamente. Ams- 
trad va a hacerlo de nuevo. 

El lanzamiento de su quinto orde- 
nador es una realidad. 

La criatura se llamard Amstrad 
PCW8512, con las mismas especifi- 
caciones que el 8256 pero con 512 
Kbytes de RAM. 

jQue nadie se asuste! Todo el soft- 
ware existente hasta ahora para el 
8256 correra perfectamente en la 
nueva mdquina; no habrd proble- 
mas de compatibilidad. 

Se espera que Amstrad no retire 
de su gama de modelos el 8256 en 
favor del 8512, sino que continuara 
comercializando ambos, aunque 
probablemente habra un movimien- 
to gradual hacia la version con mas 
memoria. 


Se acostumbra en estos casos a re- 
bajar el precio de la primera version, 
aunque esta posibilidad se presenta 
diffcil debido a que el 8256 se ven- 
de muy bien (claro que en Espana, 
Indescopm ya ha bajado el precio 
del 8256, muy a tiempo). 

En Inglaterra, el PCW8512 costa- 
rd 100 libras mas que el que ya po- 
demos llamar su hermano menor. 

No obstante, ahf no acaba la his- 
toria de las sorpresas que Sugar nos 
tiene reservadas. 

Desde hace algun tiempo, el rumor 
de que pronto existirfa un compati- 
ble IBM PC ha venido sonando con 
insistencia en el mundo informdtico 
espanol. 

Segun nuestro corresponsal en In- 
glaterra, Amstrad tendrd un ordena- 
dor de 1 6 bits compatible I BM PC pa- 
ra finales del verano de este ano. De 
momento, no existe confirmacion 
acerca de precios y configuraciones, 
aunque se especula en torno a las 
200.000 ptas., y a que la mdquina 
llevard el sistema operativo GEM de 
Digital Research, lo que presupone 
un mfnimo de 512 K de RAM en su 
configuracion base. 



Nuevo 
ordenador 

DE APPLE 


SORTEO ESPECIAL "YOUR COMPUTER 


It 


t 

r 


n el sorteo especial 
de «Your Computer)) celebrado el 
dfa 5 de febrero entre todos los usua- 
rios que nos mandaron sus datos, resul- 
to agraciado con un Amstrad 128 K: 


JOSE MANUEL GARCIA LAGOS 

PINTO (Madrid) 

Nuestra mas sincera enhorabuena 
a este estudiante de 14 afios, cuyo 
principal «hobby» es pasarse todo el 
tiempo que puede delante de su or- 
denador. 


Mpple Computer va a 
presentar proximamente en USA su 
nuevo modelo de ordenador, el Ma- 
cintosh Plus. 

Como su nombre indica, la nueva 
maquina es un Mac pero con una se- 
rie de importantes modificaciones: se 
le ha dotado de un Megabyte de 
RAM en configuracion base y la 
ROM s L'xtienae hasta 1 28 Kbytes. 

En esta, ademds del sistema de ico- 
nos que ha hecho famoso al Mac, se 
ha incluido un potente software pa- 
ra el manejo jerarquizado de fiche- 
ros, herramienta imprescindible pa- 
ra optimizar al mdximo el proceso de 
datos. 

Tambien existe una puerta de co- 
municaciones tipo serie, pero que 
permite transmitir datos 6 veces mas 
rapido que las convencionales. 

Apple ha dotado al teclado deun 
«keypad» numerico y teclas del mo- 
vimiento del cursor, y dice que la me 
moria se puede ampliar a 4 Megaby- 
tes. 

Todo el software del MacPlus y sus 
manuales se encontrardn traducidos 
al castellano desde el momento que 
el primer equipo se venda en las tien- 
das. 
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Las Subrutinas: 

EN ORDEN 


La semana pasada vimos alguna de las 

aplicaeiones que pueden tener nuestra 

nuevo descubrimiento: las subrutinas. Pero 

no era todo, Todavia nos queda mucho 

camino por recorrer para tener un «dominio 

absoluto» sobre ellas. Asi que: jmanos a la 

obral 



j acuerdo de nues- 
tra pequena calculadora del articulo 
anterior? Nos calculaba sencillamente cada 
una de las cuatro operaciones matematicas 
basicas con dos datos que nosotros le daba- 
mos al principio del proceso. Por si le falla la 
memoria le aconsejamos que eche una ojeada 
al programa 1 y vera que le resulta conocido. 


Programa uno 


En el programa principal — o cuerpo 
principal— existen cuatro llamadas a diferen- 
tes subrutinas una por cada operacion. Estdn 
en las lineas 50, 60, 70 y 80. 

Analicemos una de ellas. Si encuentra: 

50GOSUB 1000 

iQue hara su Amstrad? Bueno, el lo 
tiene muy claro. Saltara a ejecutar la subruti- 
na que empieza en la linea 1000 y una vez 
que la complete —encuentre RETURN— vol- 
vera al programa principal. 

Pero, ly usted? jLo tiene tan claro como 
el ordenador? Los humanos no tenemos una 
mente tan «numeriea» como su Amstrad 
y por tanto ante una instruction tal como: 

50GOSUB 1000 

solamente sabemos que el programa saltara 
a una rutina que hay en la linea 1000, pero 
nada mas. 

Aquf surge un problema. A menos que es- 
tudiemos y sigamos la subrutina paso a paso, 
no tendremos ni la mas ligera idea de lo que 
hace visto desde el programa principal. 

Por «enesima» vez vamos a decirle algo 
sobre la claridad. jNo nos llame pesados! Re- 
cuerde que su programa no solo ha de fun- 
cionar sino que ademds es muy conveniente 
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que «todos», incluso los demds, podamos 
entenderlo y seguirlo. 
Y segun esto la Ifnea anterior: 

50GOSUB 1000 

poca claridad nos aporta sobre que es lo que 
hace la subrutina. 

iQue le parece si en vez de llamar 
a una subrutina solamente con el nu- 
mero de linea le anadimos un co- 
mentario que nos indique lo que que- 
remos hacer? 

Sena cosa de cambiar la linea 50 por: 

50 GOSUB 1000: REM SALTO A SUMA 
Seguro que de esta manera se entiende bas- 
tante mejor que operacion vamos a realizar 
cuando el programa principal llega a esta li- 
nea: saltar a una subrutina que hace una su- 
ma. Por supuesto, para que este metodo cum- 
pla su objetivo, es necesario que el comenta- 
rio sea un buen indicativo de lo que va a ocu- 
rrir cuando se ejecute la subrutina. De no ha- 
cerlo asi, solo anadiriamos confusion a nues- 
tro listado no, serfa recomendable poner co- 
mo un comentario «multiplicacion» cuan- 
do hagamos un salto a una rutina que nos cal- 
cule una suma. 

Logicamente tambien podriamos cambiar de 
esta Forma todas las demas llamadas a subru- 
tinas. Corregiriamos las lineas 60, 70 y 80 por: 

60 GOSUB 2000: REM RESTA 

70 GOSUB 3000: REM MULTIPLICACION 

80 GOSUB 4000: REM DIVISION 

y conseguiremos tener un programa bastan- 
te majete, sencillo y simple pero sumamente 
claro. 

El ejemplo que estamos utilizando es muy fa- 
cilito y tiene pocas llamadas a subrutinas, pe- 
ro £que ocurrird si nos encontramos 
dentro de un programa muy largo 
que esta plagado de cientos y cien- 
tos de llamadas? Puede parecerles una 
exageracion pero les aseguramos que encon- 
trar cada una de las llamadas puede llegar a 
ser una tarea de chinos. Y al final nos olvida- 
remos alguna. 
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Sin embargo, siguiendo el metodo que les 
hemos explicado, dentro del programa prin- 
cipal podriamos ir viendo a grandes rasgos 
que es lo que hace cada una de ellas y por 
tanto tendremos una vision general de la for- 
ma como trabaja el conjunto. ^Estd un po- 
co mas claro? 

Pasemos de pdgina. Las subrutinas a las que 
llamamos pueden ser de dos tipos: 

— Unas realizan una determinada mision 
siempre con los mismos datos y valores de las 
variables. Son las subrutinas sin parametros. 

— Otras realizan la misma funcion o los mis- 
mos cdlculos pero cada vez utilizan para ello 
valores diferentes de las variables. Se trata de 
las rutinas con parametros. 

Las primeras son subrutinas que siempre ha- 
cen lo mismo, realizan la misma funcion o los 
mismos cdlculos independientemente de los va- 
lores de las variables que manejan. El progra- 
ma 2 es un buen ejemplo de ellas. 


Programa do 


Su mision es construir un cuadrado de aste- 
riscos en el centra de la pantalla. Para ello uti- 
lize dos subrutinas, una para escribir los la- 
dos horizontales -lineas 1000 a 1040- y otra 
para los verticals 2000 a 2040. 

Como puede observar, el cuerpo del pro- 
grama —o programa principal— es el que estd 
comprendido entre las lineas 10 y 80. Desde 
aqui es donde se ordenan todas las operacio- 
nes que se van a efectuar a lo largo del pro- 
grama y donde estdn colocadas las llamadas 
a las subrutinas. 

Advierta la forma, como hacemos las llama- 
das. En eso hemos quedado, £no? 

Tanto la rutina que hemos bautizado como 
((horizontals como la de siempre «vertical» 
siempre hacen lo mismo: lineas del mismo nu- 
nero de asteriscos bien sea en horizontal o en 
vertical. Son independientes del resto del pro- 
grama asi como de los valores de las varia- 
bles y datos: no necesitan parametros. 

Vamos a intentar hacer un pequeno cambio 
en la estructura de este programa. En vez de 
dibujar siempre el mismo cuadrado, seria muy 
interesante poder construirle con lados de ta- 
manos variables. Con esto nos estamos metien- 
do dentro de las subrutinas con parametros. 

En esta ocasion las rutinas «horizontal» 
y «vertical» no nos van a pintar un numero 
fijo de asteriscos sino que, dependiendo de un 
valor que les pasemos, los lados van a ser mas 
cortos o mas largos. 

Teclee con paciencia el Programa 3, en el 
que utilizamos subrutinas con parametros, y 
a continuacion pasaremos a su andlisis. 


Programa tres 


Para determinar la longitud de los lados del 
cuadrado vamos a usar la variable «para- 
metro» cuyo contenido es el que van a utili- 
zar las dos subrutinas para realizar una mis-, 
ma tarea —dibujar una linea de asteriscos— \ 
pero con distinto numero de ellos cada vez. 


pjJSSs* 


El unico requisito que necesita este progra- 
ma para funcionar correctamente es que an- 
tes de llamar a las subrutinas, «parametro» de- 
be contener la longitud que queremos que ten- 
gan los lados del cuadrado. 

Para ello utilizamos simplemente la instruc- 
cion INPUT de la linea 30. 

El resto del programa es semejante al ante- 
rior. Las unicas diferencias son: 

— La inclusion de la linea 30 que nos pide 
el valor del pardmetro utilizado. 

— El uso del contenido de la variable ((pa- 
rametros —o numero de asteriscos— como li- 
mite superior de los bucles que componen las 
subrutinas. 

Por lo demds, el funcionamiento de ambos 
es semejante. Dese cuenta de que por el he- 
cho de pasar, o enviar, un pardmetro a «ho- 
rizontal» y «vertical», los resultados ob- 
tenidos son bastante diferentes: el Programa 3 
es mucho mds flexible que el 2. jMaravilloso! 

Podemos pasarle valores a una subrutina 
desde el programa principal por medio de una 
variable a la que hemos llamado «pardme- 
tro» en el ejemplo anterior. Son los «pard- 
metros de entrada». 


Figura 1 



PROGRAMA 
PRINCIPAL 
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Pero no son los unicos. Tambien podemos 
ir en sentido contrario, es decir, pasando — o 
devolviendo— al programa principal el valor 
de un dato dentro de una variable de vuelta. 
A estos les hemos dado el nombre de «pard- 
metros de salida» de la subrutina. 

Con el Programa 4 vamos a intentar com- 
prender su sentido mas claramente. 


Figura 2 


Figura 3 
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Programa cuatro 


Es una aplicacidn del ultimo «invento» 
creado para castigar al pobre contribuyente: 
el IVA. 

Aqui ufilizamos cuatro rutinas diferentes, pe- 
ro la que nos interesa en este caso es la que 
nos calcula el «precio total» de lo que he- 
mos comprado (IVA incluido). 

Lo primero que hacemos es saltar a la su- 
brutina de entrada de datos mediante la ins- 
truccion: 

20 GOSUB 1000: REM ENTRADA DE DATOS 

Su mision es introducir en las variables 
«precio» e «IVA» los valores que nosotros 
le damos desde el teclado. (Procure que el va- 
lor de la segunda variable sea bastante ba- 
P.) 

Una vez conocidos los datos, asignamos su 
contenido a las variables «entrada1» y 
«entrada2» que van a ser las que utilizard 
la subrutina «cdlculo» para encontrar un pre- 
cio total. Son los «pardmetros de entrada* de 
dicha subrutina, o sea, los que le da, o pasa, 
el programa principal. 

Y llegamos al punto clave: la llamada a 
«cdlculo». jOjald sea pequeno el impuesto! 
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GOSUB 2000: REM CALCULO 

nos hace saltar a la linea 2000 que es donde 
comienza realmente la subrutina. Vemos que 
en ella se opera con los valores que le hemos 
pasado en las variables «entrada1» y 
«entrada2» y el resultado lo metemos en 
la variable «salida»: esta es la que vamos 
a utilizar para devolver el numero que hemos 
calculado —linea 2010. 

Por eso se llama «para metro de sali- 
da». El valor de nuestras operaciones «sa- 
le» en la variable «salida» desde la subru- 
tina hacia el programa principal. 

De vuelta en el, pasamos esta cantidad a 
«precio tota!» — linea 60— y sacamos el in- 
forme de todos los cdlculos efectuados hacien- 
do una llamada a la rutina «informe» —3000. 

Nuestra unica intencidn con este ultimo pro- 
grama es conseguir que le quede un poquito 
claro el concepto de pardmetro de entrada o 
de salida. Por eso no hemos entrado en expli- 
caciones sobre la forma como funciona todo 
el. Si lo hemos conseguido, jenhorabuena a 
todos! 

Hasta ahora hemos construido cualquier 
programa como un solo bloque codificdndo- 
le de principio a fin, todo seguido y de una 
sola vez. Pero hemos avanzado y no podemos 
quedarnos ahi. 

Vamos a intentar «formar» un programa 
utilizando piezas prefabricadas que cumplan 
con una funcion especifica y determinada. 
^Intuyen que va a ser como una es- 
pecie de «kit» que vamos a montar 
a base de subrutinas? 

De esta forma puede organizarse conve- 
nientemente de acuerdo con las tareas que va 
a realizar en cada momento y una subrutina, 
o pieza de este rompecabezas ejecutard una 
porcidn determinada del proceso complete Es 
simplemente dividir el problema general en 
bloques cada vez mds especificos. Y como di- 
ce el refrdn: «A menor bulto, mayor 
claridad.» Lo que podemos interpretar co- 
mo que un problema pequeno y sencillo se so- 
luciona mds fdcilmente que uno grande y com- 
plejo. 
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Figure 4 
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Si despues ensamblamos todos estos bloques 
de subrutinas bajo el mando del «progra- 
ma principal)), nuestro enredo dejard de 
serlo: no habrd pegas a la hora de resolver- 
lo. 

Vamos a trabajar. Partimos de un caso prdc- 
tico en el que se nos pide un programa que 
nos sirva para calcular cualquier operacidn 
aritmetica bdsica con dos numeros. 

Para disenar la forma de encontrarle una 
solucidn Idgica utilizaremos una herramienta 
bastante conocida, aunque poco utilizada, en 
el mundo de la informdtica: los ORGANIGRA- 
MAS. 

Es un modo de desarrollar, por medio de 
unos grdficos ya establecidos, todo el proce- 
so por el que tenemos que pasar para que el 
programa cumpla con todos los requisitos — 
o especificaciones— que nos han dado. Des- 
compongamos nuestro problema en distintas 
fases. 

Lo primero que tenemos que hacer es ELE- 
GIR la operacidn matemdtica que queremos 
efectuar: suma, resta, multiplicacidn o division. 
En principio vamos a ver cada parte de una 
manera general y suponerla ya resuelta (ya 
llegara el momento de desarrollarla con mas 
defalk). 

A continuacidn, y una vez determinada la 
operacidn, lo que procede es REALIZARLA e 
IMPRIMIR EL RESULTADO. 

Por si acaso no queremos hacer solamente 
un solo cdlculo sino varios, tendremos que dar 
al programa la opcidn de CONTINUAR has- 
ta que nosotros queramos o TERMINAR si «nos 
hemos quedado sin numeros». 

Si observa la Figura I podrd seguir mejor 
grdficamente todo este proceso. 
FIGURA I 

Como se ve lo hemos dividido en una serie 
de «cajas» que cumplen, en teoria, una mision 
especifica. Podemos establecer una correspon- 
dencia entre lo que hemos llamado «Proqra- 
ma principal* y esta representation grdfica. 
Cada una de las «cajas» seria equivalente a 
una llamada a la subrutina necesaria en ese 
momento efectuada desde el programa prin- 
cipal. 

Podriamos ir codificando con instrucciones 
que conozca nuestro Amstrad este «een- 
tro de operaciones». Seguramente que 
usted habrd pensado ya la forma de hacerlo 
y que sera bastante parecida al Programa 5. 


Programa cinco 


Consiste en una serie de llamadas a subru- 
tinas, una por «caja» como dijimos anterior- 
mente, y poco mds. jEs enormemente senci- 
llo!, pero si seguimos su listado nos dard una 
perspectiva general del problema a resolver 
£¥erdad que si? 

Ahora solamente nos queda ir desarrollan- 
do los bloques mediante unos organigramas 
mds precisos: «Reduzcamos nuestros 
porblemas al tamano en que poda- 
mos manejarlos.» 



Figura 5 
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LIMA DI 21 
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La primera «caja» es ELEGIR OPERA- 
CION. £La desmenuzamos?. El grdfico 
de la Figura II nos da una vision de como lo 
hemos hecho. 

FIGURA II 

Simplemente nos presenta en la pantalla un 
menu, lo mas estetico posible, y nos pide un 
dato que en este caso sera el numero distinti- 
vo de la operacion. 

Observe el retorno que se produce cuando 
le damos un numero erroneo: volvemos al 
principio del organigrama y comenzamos el 
proceso de nuevo. 

Si le pedimos que escriba la subrutina en- 
cargada de hacer todo esto, estamos seguros 
que no tendrd ninguna dificultad a la hora de 
hacerlo. Por si acaso le proporcionamos el Pro- 
grama 6 que puede utilizar como guia de con- 
sulta. 


Programa seis 


Y asf iriamos construyendo cada una de las 
subrutinas que van a dar forma a nuestro pro- 
grama. Primero hacemos el organigrama de 
la misma y a continuacion la codificamos con 
las instrucciones apropiadas y sobre todo 
«con mucho cuiaado». Una observation. 
Vea que en algunas de ellas hacemos tambien 
llamadas a otras subrutinas, pero esto ya no 
representa ningun problema para nosotros. 

Intente repetir esta operacion para cada una 
de las subrutinas que vamos a necesitar. Pri- 
mero haga el organigrama lo mas detallado 
posible y despues paselos a instrucciones BA- 
SIC, su Amstrad se lo agradecera. 

Por si acaso no dispone de mucho tiempo 
para dedicar a estos temas, le damos la faci- 
lidad de observar los programas y figuras res- 
tates —que nos hemos encargado de hacer— 
y estudiar sobre ellos la forma en que estan 
construidos. Pero a pesar de ello insistimos en 
la conveniencia de que sea usted mismo quien 
realice los organigramas y los codifique des- 
pues. Luego compare pero por si acaso... se 
los damos hechos. 

Para terminar, una cosa ha de quedar cla- 
ra, es muy necesario que organice sus progra- 
mas de acuerdo con la funcion concreta que 
desempena una o mas funciones. Si asf lo ha- 
cemos seguro que es mucho mas fdcil leerlos 
e irlos siguiendo al contrario que si tenemos 
un listado con las tareas mezcladas y desor- 
denadas. 

A la hora de probar que funciona el pro- 
grama correctamente tambien llevamos ven- 
taja, ya que si empleamos este metodo podre- 
mos ir probando cada «bloque» de progra- 
ma por separado. Y recuerde: los problemas 
pequenos se resuelven mejor que los grandes. 

Y ademas una subrutina, por ejemplo de 
ENTRADA DE DATOS, no solo nos sirve para 
un unico programa, sino que podemos inter- 
calarla dentro de otro que la necesite y aho- 
rrarnos el trabajo de hacerla de nuevo. 

Bueno, Mega la hora de despedirnos. Mez- 
cle convenientemente todas las ultimas subru- 
tinas que hemos desarrollado y jverd que pro- 
grama mas bonito le queda! 

Hasta pronto. 



10. REM PROGRAMA 
20 CLS 
30 INPUT 


PRIMER OPFRANDO: ".primer 
SEGUNDO OPERANDO: " , segun 


40 INPUT 

do 

50 GOSUB 1000 

60 GOSUB 2000 

70 GOSUB 3000 

SO G0<5UB 4000 

90 INPUT "MAS CALCUL0S":s* 

100 IF s*="s" THEN GOTO 20 ELSE END 

1000 REM RUTINA SUMA 

1010 PRINT 

! 020 suma s pr i mero+segundo 

1030 PRINT primera; " + "; segunda; "-"• 

suma 

1040 PRINT 

1050 RETURN 

2000 REM RUTINA RESTA 

2010 PRINT 

2020 resta»pr i mero-segundo 

2030 PRINT primera; "-"; segundo; "="; 

resta 

2040 PRINT 

2050 RETURN 

3000 REM RUTINA MULT I PL I CAC I ON 

3010 PRINT 

3020 mul tipl icacion=pr i mero*segundo 

3030 PRINT primero; "*"; segundo: " = ": 

mul tipl icacion 

3040 PRINT 

3050 RETURN 

4000 REM RUTINA DIVISION 

4010 FRINT 

4020 di vi si on=pr i mero/segundo 

4030 PRINT primera; "/" ;segunda; "■"; 

di vi sion 

4040 PRINT 

4050 RETURN 


10 REM PROGRAMA II 

20 CLS 

30 LOCATE 11,5 

40 GOSUB 1000 

50 GOSUB 2000 

60 LOCATE 11, 19 

70 GOSUB 1000 

BO END 

1000 REM ASTERISCOS HORIZONTALES 

1010 FOR bucle=l TO 15 

1020 PRINT"*"; 

1030 NEXT bucle 

1040 RETURN 

2000 REM ASTERISCOS VERTICALES 

2010 FOR bucle»l TO 13 

2020 PRINT TAB(ll) "*";TAB<25) "*" 

2030 NEXT bucle 

2040 RETURN 


10 REM PROGRAMA III 

20 CLS 

30 INPUT "NUMERO DE ASTERISCOS POR L 

ADO: ", numero 

40 parametro=numero 

50 LOCATE 11,5 

60 GOSUB 1000 

70 GOSUB 2000 

80 LOCATE 11,5+numero-l 

90 GOSUB 1000 

100 END 

1000 REM ASTERISCOS HORIZONTALES 

1010 FOR bucle'l TO parametro 

1020 PRINT"*"; 

1030 NEXT bucle 

1040 RETURN 

2000 REM ASTERISCOS vERTICALES 

2010 FOR bucle=l TO parametro-2 

2020 PRINT TAB(ll) "* " ; TAB ( 1 1+parame 

tro-1) "*" 

2030 NFXT bucle 

2040 RETURN 
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10 RFM PROGRAMA IV 

20 GOSUB 1000: REM ENTRADA DE DATOS 

30 entradal=p'-ecio 

40 entrada2"i va 

50 GOSUB 2000: REM CALCULO 

60 preciototal=sal i da 

70 GOSUB 3000: REM INFORME 

80 END 

1000 REM ENTRADA DE DATOS 

1010 CLS 

1020 INPUT"PRECIO: ".precio 

1030 INPUT"PORCENTAJE DE I.V.A.: ", 

i va 

1040 RETURN 

2000 REM CALCULO 

2010 sal ida=entradal+(entradal*entr 

ada2/100) 

2020 RETURN 

3000 REM INFORME 

3010 CLS 

3020 LOCATE 1. 10 

3030 GOSUB 4000: REM ASTERISCOS 

3040 PRINT TAB(IO) "PRECIO: ";precio 

3050 PRINT TAB (10) "I. V. A. : ";iva;"y. 

3060 PRINT TAB (10) "PRECIO TOTAL: "; 

preciototal 

3070 GOSUB 4000: REM ASTERISCOS 

3080 RETURN 

4000 REM ASTERISCOS 

4010 FOR bucle=l TO 39 

4020 PRINT"*"; 

4030 NEXT bucle 

4040 RETURN 


2000 REM PROGRAMA VII (ENTRADA DE D 

ATOS) 

2010 CI S 

2O70 LOCATE 10.7 

7030 GOSUB 7000: RFM ASTERISCOS 

2040 primT: PRINT: PRINT TAB(IO); 

2050 INPUT "PRIMFR OPFRANDO: ".prim 

era 

7060 PRINT TAB (10) ; 

"?07Q INPUT "SFOUNDO OPERANDO: ".seg 

nndo 

T>30 RETURN 


■",000 RFM PROPPAMA VI J r (RUTINA ^UMA 
\ 

-Jf-.IO POSUB ?0O0;RFM ENTRADA DC DATO 

3070 PRINT 

3030 suma«pr) roero+^egund^ 

3040 PRINT TABn5!prImero;"*";aegun 

do: " = " ; <5i im^ 

3050 PRINT 

-^060 RETURN 


40O0 RFM PROGRAMA IX (RUTINA REST A) 

4010 GOSUB 7O00:REM ENTRADA DE DATO 

S 

4O20 PRINT 

403O rest a=pr i mero-sequndo 

4040 PRINT TAB '13) pr imeroj "-" j segu 

ndo: "=" j rp ct ? 

4riso PRINT 

4060 rpti ipn 


5000 REM PROGRAMA X (RUTINA MULT I PL 

ICACION) 

5010 GQSUP 2OO0:REM FNTRADA DE DATO 

S 

5070 PRINT 

5030 multipl icacion=pr i meroKsequndo 

5040 PRINT TAB(13) pri mero; "* " ; segu 


ndo: 
5050 


mi 1 1 * i pi i caci on 
PR I NT 


10 REM PROGRAMA V (PROGRAMA PR INC IP 5riAri RF TURN 
AL) 

20 GOSUB 1000: REM MENU 

30 IF opcion=l THEN GOSUB 3000:REM 

SUMA 

40 IF opcion=2 THEN GOSUB 4000: REM 

RESTA 

THEN GOSUB 5000: REM 


50 IF opcion=3 

MULT I PL I CACI ON 

60 IF opcion=4 THEN GOSUB 6000: REM 

DIVISION 

70 GOSUB 8000: REM CONTINUO •> 

80 GOTO 20 


6000 

ON) 

601 O 

S 

6020 

6030 

6040 

do; "i 

6O50 

6060 


REM PROGRAMA VI (RUTINA P!VI?5I 
GOSUB 7000: REM ENTRADA DE DATO 


PR I NT 

di vi si on = pr j mer o/spgundo 

PRINT TAB ( 13) pri mpro; " /" : =;egun 

" ; di vi si on 

PRINT 

RETURN 


1 000 
1 1 
1 020 
1030 
1040 
1050 
1.060 
1070 
ION" 
1 ORO 
1 090 
1 mo 
1 HO 
1 170 
U30 
i on 
1140 
OTO 
1 150 


RFM PROGRAMS VI (MFNU) 

CLS 

LOCATE 10,7 

GOSUB 7000: REM ASTERISCOS 

PRINT: PRINT 

PRINT TABU 1) 

PRINT TABO 1 ) 

PRINT TABd 1) 


1 SUMA" 

2 RESTA" 

3 MULT1PLICAC 


PRINT TAP(ll):" 4 DIVISION" 
PRINT 

LOCATE 10,14 
GOSUB 7O00:REM ASTERISCOS 
I OCATF 11. 16 
INPUT "EL IGF UNA OPCION " , ope 

IF opcion'l OR opcion>4 THFN G 
1000 
RETURN 


7000 RFM PROGRAMA XII (ASTFRISCOS) 
7010 FOR bucle=l TO 21 
7020 PRINT"*"; 
7030 NEXT bucle 
7040 RETURN 


SOOO REM PROGRAMA XIII (RUTINA CONT 

INUAR ?) 

8010 PRINT TAB (10) ; 

8070 GOSUB 7000: REM ASTERISCOS 

8030 PRINT: PRINT 

8040 PRINT TAB (13) : 

SOSO INPUT "MAS CALCUL.nS" : s* 

806p IF <;*-"s" THFN RETURN El SE END 


1 



jBWasta ahora hemos esta- 
do trabajando sin darle impotancia al hecho 
de que las letras fueran mayusculas o minus- 
culas, pero como ya sabra, en Basic las pala- 
bras clave deben ir siempre escritas en mayus- 
culas. Su Amstrad ya viene preparado pa- 
ra que esto ocurra asi, pues aunque tecleemos: 

10 print «Hola» 

saldrd impreso como: 

10 PRINT «Hola» 

es decir, que la palabra clave sera transfor- 
mada a mayusculas, pero como podrd ver, la 
palabra «Hola» no sufre ningun cambio, 
puesto que al venir entre comillas se la consi- 
dera como una cadena y estas son totalmen- 
te inviolables. 
Todas las sentencias siguientes: 

10 pRinT «Hola» 

10 Print «hola» 

10 PRiNT «Hola» 

saldran listadas como: 

10 PRINT «Hola» 

En el programa II vemos que todas las va- 
riables (nombre, hecho, trafamienfo), vienen 
escritas en minusculas. Esto ocurre porque yo 
lo he tecleadp asi, pero aqui hay una cuestion 
interesante. 

En su Amstrad; 

10 PRINT tratamiento$ 

y 

10 PRINT TRATAMIENTO$ 

aparecerd escrita de diferente manera, pero 
la variable sera la misma, puesto que el Ams- 
trad no diferencia entre tratamiento$ y 
TRATAMIENTO$. En las variables las mayus- 
culas y las minusculas son equivalentes. Asi 
pues: 

tratamiento$ 

TRATAMIENTO$ 

TRAtaMienTo$ 

trataMIENTO$ 

seran consideradas como la misma variable. 


Medietas de seguridad 


Mi recomendacion es que siempre teclee las 
variables en minusculas, de esta manera po- 
dra distinguir facilmente entre estas y las pa- 
labras clave. 
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Basic en 
2 dimension es 


Reglas 
de nomenclature! 


Actualmente podemos usar letras mayuscu- 
las para las varables e intercalarlas con mi- 
nusculas y con numeros. Las reglas que rigen 
esto son: 

— Todo nombre de una variable debe co- 
menzar con una letra, aunque puede ir segui- 
do por cualquier tipo de letra, numero o ca- 
rdcter. Las letras mayusculas y minusculas son 
equivalentes. 

— No estd permitido intercalar espacios en 
bianco en el nombre de una variable. 

— Las variables deben permanecer sepa- 
radas de las papabras clave de Basic. Uno de 
los errores mas comunes es colocar una va- 
riable junto a un comando. 

Una de las mayores ventajas de utilizar va- 
riables en lugar de cadenas es que nos per- 
mite alterar facilmente la salida del programa. 
En el caso de el programa 1 , si queremos que 
nuestra carta llegue a otra victima, tan solo 
deberemos cambiar la linea 30. Por ejemplo: 

30 nombre$ = «Sr. Perez» 

A partir de ese nombre todos los usos de 
nombre$ estardn referidos a el Sr. Perez. 

En este caso, al ser un programa corto no 
reviste mucha importancia, pero en otros mas 
largos si ha utilizado la cadena «Sr. G6mez», 
en lugar de una variable, se vera obligado a 
realizar un gran numero de modificaciones, 
una por cada vez que la haya utilizado. 

El hecho de escribir las variables en minu- 
culas nos ayudara, sobre todo a los recien ini- 
ciados en la programacion, a no confundir- 
las con las palabras clave. 


Formateando el texto: 
el comando TAB () 


Este nos ayudara para etudiar una nueva 
idea, el uso de la funcion TAB (). Esta funcion 
nos permitird especificar a que distancia a lo 
largo de una linea queremos que nos impri- 
ma el texto de un comando PRINT. 

En el Mode 1 la linea tiene 40 caracteres y, 
por tanto, la pantalla se puede.considerar di- 
vidida en 40 columnas. TAB () decidira en cual 
de esas columnas empezara a escribir. La nu- 
meration de las mismas va desde 1 a 40. 

Segun en el Mode con el que estemos tra- 
bajando, asi sera el numero de caracteres de 
la pantalla, es decir, el numero de columnas. 


Por ejemplo, el Mode 2 solo tiene 20 colum- 
nas. 

Pruebe a cambiar la linea 20 de este pro- 
grama por: 

20 MODE 

lHas visto lo que pasa? 

Uno de los mayores errores de algunos su- 
puesto buenos programas es su mala coloca- 
cion en la pantalla. Un uso correcto e la fun- 
cion TAB () puede evitar estos problemas. 

Para coger alguna practica, veamos el pro- 
grama 2. Este imprime un triangulo de aste- 
risks. iPodria usted inventor un pro- 
grama que, con la ayuda de TAB (), 
dibujara una estrella de asteriscos? 

Antes de que empiece le dire que lo podrd 
realizar mas facilmente si vuelve a Mode 1 de 
la siguiente manera: 

MODE 1 (ENTER) 

Y por el momento, esto es todo lo que tene- 
mos que decir acerca de las variables de ca- 
dena. Sin embargo, existe otro tipo de varia- 
bles, que son las llamadas variables numericas. 


Las variables 

numericas: segunda 

clave 


No existe prdcticamente ninguna diferen- 
cia en la asignacion de estas y las de cadena, 
excepto que, logicamente, en lugar de estar 
formadas por una serie de caracteres, lo es- 
taran por numeros y, por tanto, podremos rea- 
lizar con ellas una serie de preparaciones ma- 
temdticas. 

Pruebe a correr el programa 3. 

La linea 30 utilize la variable numerica A pa- 
ra asignar al numero 1 0. Dese cuenta de que 
para las variables numericas no es necesario 
el uso del caracter $, pues es suficiente con 
asignarle una letra del alfabeto. Tambien ha- 
bra comprobado que tampoco se necesita po- 
ner el valor de estas variables entre comillas, 
como se puede ver daramente en la linea 30: 

30 A=10 

La linea 40 por supuesto que no imprimird 
A, sino el valor que esta tiene asignado, que 
en este caso es 10. 

Lo mas interesante ocurre en la linea 50. 
Aqui, multiplicands el valor de A por 2 y, por 
tanto, se imprimird 20. 

Este es el punto mas importante de 
las variables numericas, el poder 
operar con ellas. 
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El comando Input 


El programa 4 nos saca de apuros. El truco 
consiste en el uso de INPUT nombre$ de la li- 
nea 40. La linea 30 de el programa VIII asig- 
na el valor MIGUEL a la variable nombre$. 
En el programa IX esta variable no tiene aun 
un valor determinado. 

Cuando el programa llega a la linea: 

40 INPUT nombre$ 

espera hasta que le introduzcamos (INPUT), 
el valor que queremos de nombre$ para im- 
primir dicho valor. 

En otras palabras: cuando el ordenador se 
encuentra con un INPUT seguido de una va- 
riable, le pregunta que quiere que valga la va- 
riable, de hecho le muestra un signo de inte- 
rrogation en la pantalla. 

Ahora estd en disposition de teclear la res- 
puesta seguida de ENTER, que sera quien se 
encargue de enviarlo al ordenador, para que 
este siga con el desarrollo del programa. 

Asi, cuando corra este programa, la linea 
30 le preguntard: «£C6mo te llamas?», 
pero dese cuenta de que no son necesarias las 
interrogaciones, pues la linea 40 se encarga 
de esto. 

Entonces el micro esperara nuestra respues- 
ta y la enviard mediante ENTER. Sea lo que 
sea lo que hayamos escrito, pasard a ser el 
valor de nombre$, aunque le hayamos men- 
tido. 

La linea 50 imprimird el mensaje. 


1 REM PROGRAMA 1 

20 MODE 1 

30 nombre*"" Sr. Perez" 

40 hecho*="Usted me debe dinero" 

50 causa*- " pagueme o si no..." 

60 PRINT 

70 PRINT "Pobre 'nombre* 

30 PRINT TAB<4) Hecho* ; causa* 

90 PRINT TAB<151 " A t en t amen t e 

100 PRINT TAB<17> "Miguel" 


10 

REM PROGRAMA 

2 

20 

MODE 1 


38 

PRINT 


40 

PRINT TAB<5:> 

.i ^h 

56 

PRINT TAB<4) 

"««■ 

6U 

PRINT TAB<3) 

" * fc * ' 

70 

PRINT TAB< 1 ) 

" **** 

10 

REM PROGRAMA 

3 

23 

MODE 1 


30 

A - 10 


40 

PRINT A 


50 

PRINT 2 » A 



1 REM PROGRAMA 4 

20 MODE 1 

36 PRINT "Cual es tu nombre "; 

.40 INPUT nombre* 

50 PRINT "Buenos dias, "nombre* 


Copy de pantalla 
por impresora 

Por Robert y Christine Chatwin 

Una de las cosas en las que el Amstrad no resiste la comparacion con sus mas inmediatos 

competidores, como el Spectrum, es la posibilidad de realizar en todo momento un 
volcado del contenido de la pantalla a la impresora, lo que se conoce como una copia de 

pantalla o HARDCOPY («copia dura» en ingles). 
Asi, al Spectrum, por ejemplo, basta darle la orden COPY y, si la impresora es la 

adecuada, ivoila!, aparece la copia en papel de la pantalla. 

Obviamente, este problema clamaba por una solucion a grandes voces, y nuestros 

colaboradores Robert y Christine lo ban resuelto... para varios tipos de impresoras. 

En el articulo que sigue todo el mundo podrd aprender como y por que se realiza un 

hardcopy, bien sea en Basic o en lenguaje maquina, en este ultimo caso creando nuevos 

comandos RSX. 



espues de varias sema- 
nas leyendo montanas de propaganda y con- 
tando con mucho cuidado las pesetas dispo- 
nibles, la familia voto por comprar el ordena- 
dor Amstrad, modelo barato, casette y mar- 
cianitos en verde y todo. En desfile fuimos a 
unos grandes almacenes y media hora despues 
llegamos a casa con nuestro tesoro. Ya habia- 
mos preparado el lugar de honor en el cuar- 
to de estar con nueva mesa y estanteria lista 
para las cintas y los libros que ibamos a com- 
prar. 

Orgullosamente, empezamos a comparar 
nuestro Amstrad con otras maquinas — hi- 
cimos varias pruebas y encontramos que el 
aparato era muchisimo mejor en velocidad, en 
su pantalla, etc. que muchas maquinas con 
procesadorde 16 bits, el IBM-PC incluso—. Asf 
hemos hecho muchos enemigos, comproban- 
do que nuestro Amstrad de precio de mer- 
cadillo era un gigante comparado con las ma- 
quinas suyas, hasta que hablamos con el pro- 
pietario de un simple Spectrum de 28.000 ptas. 


Con el Amstrad no se 
puede 


—Bien — dijo el—, muy bonito. Pero 
no se puede imprimir la pantalla por 
impresora, como yo hago con mi 
Spectrum. 

—No digas tonterias — le contesta- 
mos— , por supuesto que se puede. 
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— jlntentalo! — contesto, sonriendo. 

Regresamos a casa, hicimos un diseno pre- 
cioso en la pantalla (el escudo de la Caja de 
Ahorras local), copiamos un programa de una 
revista y... no funcionaba. 

Otra vez, molestamos a los amigos de 


Amstrad, preguntandoles como ellos pasan 
disenos a la impresora. no lo habian inten- 
tado, o no funciona, con feas lineas vertica- 
ls por doquier. jQue verguenza! Nuestro 
Amstrad, la creme de la creme del micro, 
vencido por un Spectrum, jlmposible! Enton- 
ces con hielo sobre la cabeza, nos pusimos a 
trabajar para intentar solucionar el problema. 


iCIaro que se puede! 


Primero ves si tienes impresora. Si no, no te 
preocupes. Nosotros tampoco. Teclea solo el 
programa final, ese del codigo maquina y bus- 
ca un amigo con impresora. Y regalale una 
copia del programa. 

Con la impresora, ver el manual para MO- 
DO GRAFICO, que tambien se llama imagen 
de bits (bit image) porque un bit (aha binaria 
en elnumero enviado a la impresora) sale co- 
mo un punto (dot) en el papel. Este modo pue- 
de ser de dos tipos. 

Lo mas probable es el tipo de COMPATIBI- 
LIDAD EPSON. Habra un diagrama mostran- 
do bit enviado al punto (dot) mas bajo en 
el cabezal de impresion. (Eso de los bits es cu- 
rioso —los ingenieros siempre cuentan desde 
y lo que para mi es el octavo bit, para ellos 
es solo bit 7. Tal vez asi les sale mas barato 
el IVA.) 

Los programas que siguen, se han escrito 
para este tipo. Si, al contrario, bit se mues- 
tra dirigido al punto (dot) mas alto de impre- 
sion, este tipo vamos a llamar de SEIKOSHA, 
porque lo hemos probado en una SEIKOSHA 
GP550A. E.I programa final tiene unos pokes 
adicionales que lo adopte a este tipo de im- 
presora. 

Si no esta claro de que close es la impreso- 
ra, aplica el metodo conocido entre los cien- 



tificos de SIAS. Esto es «Suck it and see». 

Pruebalo y verds. Teclea los programas y si 
todo sale invertido y al reves, debe ser del otro 
tipo. 

Aparte de la SEIKOSHA GP550A, hemos 
probado los programas en otros dos: INDES- 
COMP 80 y STAR GEMINI 1 OX, los dos del ti- 
po EPSON. Todas son mdquinas economicas 
de unos 100 cps de velocidad. 

ADVERTENCIA: El uso de RUN antes de SA- 
VE puede ser perjudicial para su salud men- 
tal. Si no tienes impresora conectada. 
?#8, «Hola» 

y — adids. Tendrds que apagar todo el apa- 
rato. Entonces teclea el programa y grdbalo 
ANTES de probarlo. Microhobby no quiere ser 
causa de suicidios en masa de las mejores men- 
tes del pais. 


Probando, probanda 


Programa 1 : PRUEBA. Este es de introduc- 
cidn. Los expertos en el asunto ya pueden sal- 
tar a programa 2, pero entonces les faltardn 
muchas lineas del presente programa que se 
usan alii. Cuando tecleas, no hace falta con- 
tar espacios: las indentaciones (p. ej. lineas 
61020-61100) se usan para ayudar a com- 
prender la estructura de los bucles y no nece- 
sitas seguirlas. Las observaciones (REMs) que 
siguen al apdstrofe (') pueden reemplazarse 
con un par de asteriscos ('**). Las lineas DA- 
TA tambien son de este estilo: terminan con 
una etiqueta de postizo para indicar lo que los 
numeros representan. Puedes teclear mds sim- 
plemente 

64000 DATA 27, 64, 27,177,** 
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Teclar y grabarlo con SAVE «prueba» en ca- 
sette o disco. Ahora encender la impresora y 
RUN. Si salen 6 lineas dobles, largas, horizon- 
tales, fantastico. Pero, si cuando yo lo hago, 
salen estas lineas parcialmente rotas por 
«gremlins» en la mdquina, con unos pocos 
«H» y «,» esparcidos, bien. Estos gremlins sa- 
ben Basic, pero no Codigo Mdquina, y la ver- 
sion final va a funcionar correctamente. 

Si no hay nada de lineas dobles horizonta- 
les, en verdad falla algo. Comprobar el pro- 
grama y leer la parte del manual de la impre- 
sora que trate de modo grdfico. Al menos, no 
vale la pena seguir tecleando mds programa, 
hasta que esta parte, de prueba, funcione. 


respetando las comas. 



;Como funciona el 
programa? 


En el programa PRUEBA se ven cosas co- 
mo «car7but» o «espacio 7 bit». Un ca- 

rdcter para la mdquina es un numero entre 
y 255. Estos numeros consisten de ocho bits 
(cifras binarias). Si quieres ver los bits en ac- 
cidn, prueba lo siguiente: 

for car = 115 to 135:? car; bin$ (car, 8): 

next car 

y se nota que bit 7, el primero desde la izquier- 

da, se alza (cambia deOal) entre 1 27 y 1 28. 

Hasta 255 se queda alzado. 

La puerta Centronics (Printer) en el Artis- 
trad corta la cabeza de cualquier cardcter 
que pasa por ahi y entonces no llega a la im- 
presora el octavo bit, solo bits 0-6. Linea 
64000 son los DATA para un espacio entre li- 
neas que corresponde a siete «dots en el pa- 
pel. Compruebalo y si hace falta cambia los 
DATA, enviando un cardcter diferente. Teclea: 

61070 car 7 bit=63 
y RUN. Ahora (sin hacer caso de «grem- 
iins» si los hay) se ve una fina linea blanca 
entre bloques de negro. Esta linea correspon- 
de al bit 6 (64) siendo el unico que no pone 
un punto en el papel. 

61070 car 7 bit= 127 . 

y las dos franjas de negro deben unirse justa- 
mente, pero sin solapar. Si piensas que el es- 
pacio hay que ajustarle, cambia los datos co- 
rrespondientes en linea 64000. 

Los datos terminan en un numero al cual se 
ha anadido 128 como serial de fin de datos, 
por ejemplo, 1 77 = 49 + 1 28 y 49 dice el ma- 
nual de la impresora es el codigo para espa- 
cio entre lineas de siete puntos (dots). 
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Los datos de Ifnea 6401 son los codigos de 
control para enviar 100 caracteres grdficos a 
la vez. 

La Ifnea 64020 es la que mas probablemente 
aprovecharascambiando. Esta repone la im- 
presora en el estado que normalmente uses. 
En el programa hay los codigos mas sencillos 
de reiniciacion. Puede ser que tu impresora no 
reconoce ESC@. Entonces cdmbialos por 
otros codigos. Por lo menos, juega con esta 
linea y ver lo que los cambios hacen con RUN 
seguido por LIST 64000-64020, #8. 

Estos mismos codigos de control pueden po- 
kearse en el programa final en codigo maqui- 
na. 


Hardcopy en Basic 


No borres el programa de memoria. Vamos 
a aumentarlo para copiar la pantalla a papel, 
usando Basic. 
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Notards que no necesitas teclear otra vez 
las lineas 63020-50 y 63240-final, porque son 
iguales que antes. Tampoco te molestes en bo- 
rrar los bloques antiguos 60000 y 61000, que 
no se usan aquf. 

Las impresoras de la otra clase (como la SEI- 
KOSHA GP550A) tienen dos lineas diferentes, 
aparte aquellas de los DATA del programa an- 
terior. Son las dos siguientes: 
63150 car7bi\=64*((TESTR(-6,2)=0)+l) 
punto aqui? — devuelve 64 
63170 car 7 b\\= 64* ((TESTR 
(7,0j=0j+/J + car7bit/2 

cuyo efecto es copiar el grupo de siete puntos 
de la pantalla en orden inverse La multipli- 


cation *2 ha sido reemplazado por division 
11, que en el programa de codigo maquina se- 
ra RL- rotacion hacia la izquierda, reempla- 
zado por RR- rotacion hacia la derecha. 

Grabar el programa con SAVE <«opi6n. 
bas». Coge unos cinco pliegues de papel con- 
tinuo usado, que estabas a punto de tirar, por- 
que lo que saldrd probablemente sera un de- 
sastre. Cuando lo hice en una INDESCOMP 
80 y STAR GEMINI, salieron beeps, alimen- 
tation de hoja y todo. Pero tambien... 

Enciende la impresora, RUN y cuando el di-\ 
bujo esta acabado pulsa la tecla «C». Y a co- 
mer, toma un cafe algo. Porque el pobre Ba- 
sic tarda. Para mi, el tiempo mostrado en la 
pantalla al final era de 21 min y 20 seg. 

Lo que hace el programa es procesar los 
640 x 2000 pixels de la pantalla en bloques de 


siete, preguntando a traves de la funcion 
TESTR si estan encendidos no y pasar la in- 
formation a la impresora en forma de bits — un 
bit por pixel —para imprimir los puntos en pa- 
pel. (Cada bloque se repife su impresion pa- 
ra tener una copia 640x400). 

Pero, 640 X 200 veces en Basic puede ser de- 
masiado. Se diseno Basic para ser interactiva, 
no repetitiva. Ahora vamos a ver el progra- 
ma en codigo maquina, pero la logica sera 
igual a lo que acabamos de ver. 


Lenguaje maquina: el 
pi a to fu&rte 


Esta vez teclea NEW. Hay una comproba- 
cion en el programa que los datos numericos 
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han sido entrados correctamente. Un error se 
senala con el mensaje «Error en xxx» y las 

Ifneas de DATA se alistardn. Teclea en MO- 
DE 2: el formato es de 64 caracteres por li- 
ned, para ajustarse a la norma de la revista 
y si saltas un dato, sera claro a simple vista. 
Una vez terminado, grabarlo con SAYe 
«hobbycop». 


Caract&risticas 


Nuevos comandos Basic: 

I COPY (, tinta) 
I COPYLAT (, tinta) 

— Copia de la pantalla de un solo color en- 
viado a impresora con modo grafico (bit ima- 
ge). 

— Si no se especifica el pardmetro opcio- 
nal, INK en la pantalla saldrd de papel bian- 
co y los demas INKs saldran negro. 

— Con el pardmetro, el fondo de papel sin 
imprimir corresponderd al INK «tinta», y los 
demds (INK incluido) saldran negro. 

— Comprobado en las impresoras SEIKOS- 
HA GP550A, INDESCOMP 80, y STAR GEMI- 
NI 10X. 

— I COPY en mode-0/mode-l da una ima- 
gen de 320x200 puntos (80seg) en mode-2 
da una imagen de doble densidad de 
640x200 (tardando 150 seg). 


— I COPYLAT en cualquier mode da 
640x400 puntos, copia lateral (5 min y 20 
seg). 

— Al terminar la copia la impresora estd rei- 
niciada para la impresion de texto normal. 

— La tecla de «break» ESC-ESC esta re- 
conocida, parando de emergencia la copia. 
En este caso la impresora necesita ser apaga- 
da para su reiniciacion. 

— Compatible con toda la familia de 
CPC464 (472, 664, 6128), por reubicarse di- 
ndmica y automdticamente en memoria. 

— Longitud despues de reubicacion, 443 
bytes. 

La barra vertical I que hay en el bloque de 
lineas 3000 se encuentra encima del signo @ 
en el teclado. Se usa para dar acceso a nue- 
vos comandos en Basic, en este caso coman- 
dos que residen en la misma memoria llama- 
dos RSX (extensiones residentes). 

Teclea MODE 1 . Enciende la impresora. 
RUN. Debe verse en la pantalla la informa- 
cion contenida en las lineas 3010-3070. Teclea 
simplemente. 

I copy 

y (ENTER) claro, y sale una copia de la pan- 
talla en el papel. 

I copy, 1 
y debe salir ahora con bianco y negro inver- 
tido. (Esta forma del comando significa: ele- 
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gir INK 1 como fondo de papel bianco, e im- 
prime todas las demas tintas). 
Comienza una nueva hoja en la impresora, 

y 

I copylat 
y sale una copia lateral de la pantalla, tama- 
no grande. 

Los dos nuevos comandos se quedan en la 
memoria, hasta que apagues la mdquina. Car- 
go otra vez el programa COPION.BAS con 
LOAD «copion.bas» 

El programa cargador HOBBYCOP se ha 
borrado, claro, pero su efecto queda. Tecleas: 

63005 I COPY: RETURN 
y RUN. Cuando termina el dibujo en la pan- 
talla, pulsa la tecla «C» (de copiar) y sale la 
copia al papel. Intentalo otra vez, pero aho- 
ra en lugar de «C», pulsa ESC/ESC para 
«break», y saldrd el mismo dibujo, pero en 
otra forma. Tecleas: 

63005 I COPYAT: RETURN 

y RUN para una copia grande. 

La pantalla en MODE 1 tiene 320x200 pi- 
xels. En MODE 2, 640x200 pixels. Entonces 
I COPY hace una copia en doble densidad 
automdticamente, si la pantalla estd en MO- 
DE 2, con cada pixel un punto en el papel. Pe- 
ro, es posible que la impresora que uses no 
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tenga doble densidad de impresion en modo 
grafico. En tal caso, adapta el programa 
HOBBYCOP con el siguiente poke de corto- 
circuito. 

2200 'JR C, COPION cambiado a JR CO- 
PION en la direccion poke! . 
2210 pokel=&122. 
2220POKE(7i+7; + pokel J &18. 

En una aplicacion como el Pascal de Hisoft, 
uno tiene que reiniciar cualquier RSX al prin- 
cipio de cada programa. La llamada necesa- 
ria, user(rsx), se da en la pantalla al final de 
HOBBYCOP. 


Cod i go fuente del 
programa HOBBYCOP 


El listado del programa fuente en Ensambla- 
dor se ha escrito en forma autodocumentada. 
Etiquetas en mayusculas representan nudos de 
la estructura del programa. En minusculas se 
usan solo para reubicacion o para pokes des- 
de Basic. 


Personallzar 
HOBBYCOP 


Para acomodar el programa a tu propia im- 
presora y gustos, cargalo con LOAD «hob- 
bycops y anadir lineas de la misma forma que 
cambiamos el programa para mdquinas esti- 
lo SEIKOSHA. Por ejemplo, me gusta reiniciar 
la impresora INDESCOMP 80 a letras peque- 


nitas y juego ASCII. Entonces pongo los codi- 
gos de control para decir adios grdficos (byeb- 
ye) en la manera siguiente: 

2350' 

2360 ' codigos de ctrel - pokes. 

2370' 

2380 e$ = CHR$ (27) 'ESC. 

2390 spacng=&65 'espacio entre lineas pa- 
ra 7 dots. 

2400 grafic = &6D ' 1 00 caracteres grdficos 
densidad normal. 

2410 grafcl = &75 '320 caracteres grdficos 
densidad normal. 

2420 grafc2=&7D '320 caracteres grdficos 
densidad normal. 

2430 byebye = &85 'adios grdficos reinicio 
impresion de texto. 

2520 control$ = CHR$ (10) + e$ + «R» + 
CHR$ (0) + CHR$ (15) + e$ + «3»+CHR$ (16). 

2530 direc=byebye: GOSUB 2900. 

2899 RETURN. 

2900 «pokear control$. 
2910direc = direc+h. 

2920 FOR q = l TO LEN (control$)— 1. 

2930 POKE direc+q, ASC 
(MID$ (controlS, q, 1)). 

2940 NEXT q. 

2950 POKE direc+q, ASC (MID$ (control$, 
q, l)) + &80'terminator. 

Ahora RUN. Y despues de usar I COPY, me 
deja la impresora otra vez con la forma de le- 
tra que me gusta. Las direcciones de los cinco 
bloques de codigos de control se encuentran 
en lineas 2390-2430. Hay sitio para hasta 
ocho codigos en cada bloque. 


Para usar HOBBYCOP en programas pro- 
pios, hay que anadir: 

3085 RUN «jnombre.de.tu.programa» 

a HOBBYCOP. Entonces graba HOBBYCOP 
en frente de tu programa, el cual ahora pue- 
de usar I COPY y I COPYLAT sin haber per- 
dido mas de 443 bytes de memoria. 

No olvides que las copias son monocroma- 
ticas. Si tienes muchos colores en la pantalla, 
solo uno puede salir en bianco y los demos en 
negro. Tal vez puedes usar algo como la tec- 
nica de procesar la pantalla a solo dos colo- 
res que se ha visto en el eiemplo grafico de 
COPION. BAS. «What you see is what 
you get» es el dicho ingles. Es mejor ver en 
la pantalla exactamente lo que va a salir en 
el papel. 

Quiero dar gracias a mis amigos Paco y 
Juan de Portalo aqui en Badajoz, colabora- 
dores de MICROHOBBY Semanal, para el uso 
de su impresora Star Gemini. Paco es uno de 
los dos Paco pacenses inmortales por su exito 
«BUGABOO» —la pulga. De el aprendf es- 
te metodo tan hermoso de automodificacion 
en codigo mdquina, donde el programa se es- 
cribe a si mismo. Las etiquetas AUTOA y 
AUTOC en el programa Ensamblador sena- 
lan a tales autoamodificaciones, sin las cua- 
les el programa habria sido algo como 30 por 
1 00 mas largo. Y gracias, tambien, a mi ami- 
go Angel Hernandez del Instituto Reino Afta- 
si en Badajoz, no solo por el uso de la Indes- 
comp 80 y la Seikosha GP550A, sino tambien 
por su bonito programa de geografia vista 
desde el espacio, que he usado en preparar 
ejemplos para este articulo. 
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BATTLE OF PLANETS ES EL PROGRAMA SELECCIONADO PARA EL 
CAMPEONATO INTERNACIONAL DE JUEGOS DE ORDENADOR. 

CONSIGUE LA MAXIMA PUNTUACION ESPAflOLA Y PARTICIPA EN LA FINAL DE LONDRES. 
(US BASES DEL CONCURSO ESTAN EXPLICADAS EN EL PROGRAMA) 


•RID, TFNO.: (91) 447 34 


^™ 


Tornado LOW LEVEL 


El telele (TLL), no es una contraction 

nerviosa espasmodica como todo el mundo 

piensa, sino que en el mundo del software, 

representa las siglas del Tornado Low Level, 

el juego co nel scroll mas rdpido del Amstrad. 



I Tornado, es uno 
de los aviones de caza europeos, con 
mayor poder de armamento y ope- 
ratividad a baja cota. Comparable 
en muchos aspectos a los miticos 
Phantom, F-18 de McDonnall Dou- 
glas y los modelos mas sofisticados 
<3e Mirage. 

A los mandos de nuestro avion su- 
personico, afrontamos una mision de 
reconocimiento y localizacion de ob- 
jetivos, en terreno enemigo. 

Siendo esta una mision ultrasecre- 
ta, en la cual el factor sorpresa es de- 
terminante para el exito, siempre de- 
bemos volar a baja altura para no 
ser detectados por el radar enemigo. 

Como en todo avion moderno, la 
zona de combate, se encuentra per- 
fectamente reproducida en la memo- 
ria de nuestro ordenador de ruta, el 
cual nos indica en todo momento el 
estado del combustible y las bombas 
que transportamos, asi como el mo- 
mento mas oportuno para regresar 
a nuestra base a repostar. 
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Disponemos de dos velocidades de 
vuelo: reconocimiento a ras de tie- 
rra, a velocidad moderada y vuelo 
supersonico a cota baja, aerodina- 
mico de las alas, consiguiendo una 
mayor penetracion aerodindmica. 

Tornado Low Level fue el juego 
que dio a conocer a la firma Vortex 
en el mundo del Spectrum; como pio- 
nero en los programas de la casa, no 
es un producto de ultimfsima actua- 
lidad, pero aunque la version para 
Amstrad ha tardado su tiempo en 
aparecer, sigue teniendo plena vi- 
gencia. 

Ademas de ser pionero en los pro- 
ductos de la firma, TLL introdujo en 



su tiempo un nuevo concepto del es- 
pacio y la perspectiva en el mundo 
del software. Aprovechando que de- 
bemos circular por un mapa a distin- 
tas alturas, Vortex hace uso de una 
perspectiva plana, fdcil y muy efec- 
tiva para simular las tres dimensio- 
nes. 

En la publicidad del juego pode- 
mos leer «TLL tiene el mas rapido y 
suave efecto de Scroll, jamas conse- 
guido en la historia del Amstrad». 

Afirmacion que no es nada exage- 
rada, pues cuando el Tornado varfa 
el angulo de las alas y vuela a velo- 
cidad supersonica, el paisaje pasa 
ante vuestros ojos a una velocidad 
increfble. 
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Las tecnicas de programacion uti- 
lizadas para conseguir estos Scrolls 
a gran velocidad, son muy elogia- 
bles, teniendo en cuenta los 16 Kb. 
de pantalla del Amstrad y el hecho 
de que el avion puede moverse en 
ocho direcciones diferentes. 

Para lo cual se han utilizado ruti- 
nas de Scroll con las siguientes carac- 
terfsticas: 

Scroll horizontal de izquierda a de- 
recha y derecha a izquierda, y verti- 
cal de arriba a abajo y abajo arriba. 

Diagonal dngulo superior izquier- 
do, inferior derecho e inferior dere- 
cho superior izquierdo. 

Diagonal angulo inferior izquier- 
do, superior derecho y superior de- 
recho inferior izquierdo. 

Con esta profusion de rutinas, se 
consigue un control del aparato de 
360 grados, permitiendo cualquier 
maniobra real de combate. 


Las misiones de caza que debemos 
realizar sobre objetivos en tierra, son 
transmitidas desde la division de in- 
teligencia al ordenador de abordo, 
el cual nos da informes de situacion 
y estado del aparato, con un simple 
toque de tecla. 

Para cumplir cada una de las mi- 
siones que nos dicta el ordenador, 
debemos destruir los cinco abjetivos 
fijados en el mapa de inteligencia. 

Las dificultades con que nos encon- 
tramos son; la autonomfa del apara- 
to, el numero limitado de proyectiles, 
y los obstaculos urbanos. Tendidos 
electricos, antenas de comunicacio- 
nes, edificios altos, etc, son muy pe- 
ligrosos para el vuelo a baja cota, 
pudiendo chocar con ellos en cual- 
quier momento. 

Es importante repostar en los mo- 
mentos oportunos, para lo cual de- 
bemos aterrizar en las pistas distri- 
buidas por el mapa, donde se repon- 
dran las existencias de proyectiles y 
combustible, permitiendonos seguir 
con la mision en curso. 

Nuestro principal enemigo es el 
tiempo. Si en plazo marcado por el 
ordenador de ruta no hemos destrui- 
do la totalidad de los objetivos y to- 
rnado tierra en nuestra base, somos 
localizados y destruidos. 

Un programa de accion, en el que 
superar nuestro propio record cons- 
tituye el principal aliciente. 

jBuena caza! 
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Cronotest 


Se puede aprender informatica mientras uno estd divirtiendose, o a lo mejor se debe. 

En este sentido, Amstrad Analisis os propone un pequeno juego en el que os 

demostrareisa vosotros mismos vuestra rapiaez de reflejos y aprender eis, casi sin daros 

cuenta, como se usan los comandos de manejo de interrupciones del Basic AFTER y 

REMAIN. 



I 



comando AFTER permite 
cronometrar un periodo de tiempo, y una vez 
pasado este, desviar el programa hacia una 
subrutina. Y el comando REMAIN desactiva 
dicho cronometro, dando ademos el tiempo 
que quedaba para cumplirse el plazo. Ved- 
moslo con el ejemplo. 

50 Fstablece el modo de pantalla. Inicia- 
liza la variable (a$), y el control (t). 

60-90 Presentan el texto en la pantalla. 

1 00 Va a la subrutina que dibuja un cua- 
drado en la pantalla. 

110 Para el programa hasta que se pulsa 
ENTER. 

120 Instrucciones. 

130 La funcion RANDOMIZE TIME mejo- 


ra la eleccion de numeros aleatorios, al ha- 
cer que estos dependan del tiempo que lleva 
conectado el ordenador. 

1 40 Asigna las operaciones aritmeticas a 
las cadenas respectivas (OP$). 

150-160 Eiige dos numeros aleatorios, 
los multiplica por 1 000 y los redondea con dos 
decimales. Esto se hace para que el numero 
este entre 1 y 999.99. 

1 70 Almacena en (a) el mayor y en (b) el 
menor de los dos numeros anteriores. 

180 Elige un numero aleatorio entre 1 y 
4 para poder seleccionar la operacion aritme- 
tica (sel). 

190 Conecta el temporizador numero 1 
para que haga un GOSUB a la linea 360 cuan- 
do pasen 30 segundos (1500*0.02=30). 

200 Presenta en pantalla la operacion a 
realizar. 



2 1 Inicia el bucle que detecta que se tie- 
ne el resultado. Esto se podrfa hacer con la 
instruccidn INPUT, pero entonces si se acabase 
el tiempo, no se ejecutarfa el GOSUB hasta 
que se pulsase ENTER. 

220 Si se ha ejecutado el GOSUB (t) val- 
dra cero y saltard a la linea 330. 

230 Asigna a (a$) la tecla pulsada. El bu- 
cle hace que se ignore cualquier otra tecla que 
no sea la (s) 

240-270 Calcula el resultado real, de- 
pendiendo de la operacion, que a su vez de- 
pende del valor de (sel). 

280 Fin del bucle. 

290 Pregunta el resultado si no se ha cum- 
plido el plazo, y lo almacena en la variable 
(respuesta). 

300 Se imprime si se ha acertado o si se 
ha fallado. 

310 Imprime el resultado al lado de la 
operacion. 

320 Imprime el tiempo que quedaba pa- 
ra responder, calculado en segundos (multi- 
plicandolo por 0.02). 

330-350 Pregunta si se quiere volver a 
probar, si se responde que si, vuelve al prin- 
cipio, y si no acaba el programa. 

360 Empieza la subrutina invocada por el 
comando AFTER. 

370 Imprime que se ha pasado el tiempo. 

380 Imprime el resultado correcto. 

390 Pone el control a cero, para que al 
retornar al programa principal no pida el re- 
sultado otra vez. 

400 Retorna al punto donde se dejo el 
programa principal al acabarse el tiempo. 

41 0-470 Dibuja un cuadrado en la pan- 
talla para escribir dentro la operacion aritme- 
tica, y retorna al programa principal. 

Si se quiere cambiar el tiempo de respues- 
ta, basta con calcular el tiempo deseado mul- 
tiplicando los segundos por 0.02, y sustituyen- 
do el valor obtenido en la linea 190 despues 
de AFTER. Para significar las operaciones, se 
pueden quitar los decimales q'uitando de las 
lineas 150, 160, 240, 250, 260 y 270 los do- 
ses que hay despues de las comas. 
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LAS LEYES 
DE MURPHY 

Tarde o temprano, todo el mundo se pregunta en un alarde 

de sentido cumun como es posible que en la tarea de 

desarrollar un programa, aparentemente pristine y clara 

como el crista!, todo se desarrolle lentamente, por el camino 

mas dificil posible y ocurran sin parar fenomenos 
inexplicables, a los cuales el programador, re pie to de la Ira 
del Senor, culpa al ominoso azar, a la implacable Naturaleza 
y al Gobierno (ya en el culmen de la desesperacion). 

No obstante, el calumniado azar no tiene vela en este 

entierro, para nada. 

La verdadera razon de los parafenomenos informaticos 

obedece a una conspiration friamente calcualda, y que el 

Doctor Murphy descubrio en su tesis titulada «Sobre la 

perversidad de los objetos inanimados» (Editorial Malamilk, 

de la Universidad de Hardware), la cual resumimos en sus 

puntos principales con el doble objeto de aclarar al personal 

las causas de sus cuitas, convencerles de la inevitabilidad de 

las mismas, y limitar en lo posible el creciente numero de 

ordenadores estrellados contra el suelo en un arrebato de 

pasion. 

Nota de redaccion: La persona que encuentre la manifiesta 

contradiction que se oculta en el ultimo parrafo, pues bien. 

Si ademas nos lo dice a nosotros, le regalamos un precioso conjunto 

Sadomasok, creado por Cutrefiel, en cuero negro repujado para que se vista 

adecuadamente a la hora de programar. Mola $eh? 


1. Ley de Murphy 

Si algo puede ir mal en tu 
programa, puedes apostar a que 
ird mal. 


2. Teorema 
de Patrick 

Si tu programa funciona a la 
primera, seguro que estds 
empleando el algoritmo y tal vez 
el ordenador equivocado. 


4. Postulados de 
las lenguas vivas 


3. Constante 
de Skinner 


■ 


Es la cantidad de lineas 
pertenecientes a tu programa, 
tales que, anadidas al mismo, 
impiden que quepa en la memoria 
y, sustrafdas de el, no permiten 
que funcione como habfas previsto 
en un principio. 


La pericia en el arte de 
programar es directamente 
proporcional al numero de injurias 
que uno profiere durante el 
desarrollo del programa, e 
inversamente proporcional al 
cuadrado de las distancias que se 
recorren de casa al parque mas 
cercano para «estirar las 
piernasw. 


5. Ley de Flape 

sobre la 

perversidad 

de los prograntas 

concluidos 


Todo programa, prescindiendo 
de su proposito, estructura y 
configuracion, sera concluido de 
la forma mas insospechada y 
confusa posible, por razones 
completamente oscuras. 
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6. Axioma de Allen 

Cuando todo falla, es el 
momento de consultar el manual 
que naturalmente, no tenemos 
idea de donde puede encontrarse 
oculto. 


7. Principio de las 
subrutinas dispersas 

Al depurar un programa, la 
accesibilidad de una subrutina 
critica para su funcionamiento, es 
inversamente proporcional al 
numero de veces que dicha rutina 
desfila por delante de nuestros 
ojos al listar el programa en su 
busqueda. 


8. Corolario de 
compensation 

La estructura de un programa 
puede considerarse un exito si no 
mas del 50 por 100 de las lineas 
originales deben modificarse para 
obtener cierto parecido con el 
resultado deseado. 


9. Ley de 
Gumperson 

La probabilidad de que ocurra 
un determinado suceso es 
inversamente proporcional a su 
importancia y al deseo que 
tengamos de que suceda. 


lO. En busca del 
material perdido 

Los discos necesarios para el 
programa de ayer, deben pedirse 
no mas tarde de mafiana al 
mediodfa. 


I I . Principio principal 

Por definicion, cuando uno 
programa en el dominio de lo 
desconocido, no sabe lo que se va 
a encontrar. 


12. Regla 
Ketterin (I 
mas sencilla) 


la) 


No funciona, pero no funciona 
por una razon distinta de la que 
uno piensa que no funciona. 


13. Factor de 
futilidad 


Ningun programa es nunca un 
completo fracaso: puede servir 
siempre como un mal ejemplo. 


14. Ley de 
Anderson 


m 


Nunca se perderd un programa 
del que uno tenga copias. 


15. Principio de la 
gravitacion selectiva 


Cuando el ordenador cae al 
suelo, inevitablemente aterriza por 
donde el dafio puede ser mayor. . 


16. Teorema del 
cdlculo mental 


1. Si puede cometerse un error 
en los calculos, desde luego que 
ocurrira y de tal forma, que hay 
que rehacer todas las 
operaciones. 

2. Todos los valores de las 
constantes, a fin de cuentas 
resultan ser variables. 

3. En todos los calculos, el 
valor que se creia mas correcto es 
el causante de todos los errores. 

4. La coma decimal se las 
arregla para colocarse por su 
cuenta en el peor sitio. 
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Space base 


Los programas de ataques espaciales mando de naves galacticas y 

espantosas confrontaciones alienigenas nunca pasan de moda. Siempre 

renace de sus cenizas, como un ave Fenix simpatica, para divertirnos. 



I ano es 2036 des- 
pues de Cristo. Despues de decadas 
de costosos intentos en vidas y naves, 
el hombre ha sido capaz de estable- 
cer su primera base espacial en el as- 
teroide. belt. 

El aseteroide es rico en oro y mi- 
nerals claves para la supervivencia 
de la civilizacion tern'cola. 

Sin embargo, los nativos de An- 
dromeda tambien codician los mis- 
mos minerales y estdn dispuestos a 
conseguirlos por la via mas rapida, 
la guerra. Debes defender la base 
contra sus enemigos. 


r 

Variables 

Principals \ 

A(5) 

Posicion de las naves 


atacantes 

B(5) 

Posicion de las bombas 

SC 

Score 

LV 

Nivel 

SH 

Combustible 

LZ 

Energia laser 

LZI 

jSe acabo el laser? 

LZ2 

Contador 

LZC 

Color del laser 

Al$ 


A2$ 

Los alienigenas 

A3$ 


LB 

Posicion del laser 

R 

Variable aleatoria 

Kl 

Cierto si se pulsa Z o joystick 


a la izquierda 

K2 

Cierto si se pulsa X o joystick 


a la derecha 






ESTRUCTURA DEL 



Programa 


220-250 

Datos para las bombas 


260-340 

Datas para las naves alienigenas 


350-480 

Datas para la base 


490-640 

Inicializacion e instrucciones 


650-880 

Bucle principal. Inicializa la pantalla y, dependiendo del nivel, 
la velocidad y frecuencia de los ataques enemigos 

decide 

890-960 

Direccion de la bomba 


970-1000 

Coloca un alien en pantalla al azar 


1010-1060 

Mantiene la bomba en curso 


1070-1080 

pChoque de la bomba con la base? 


1090-1270 

Mueve laser 


1280-1370 

Fuego del laser. Destruye bombas y naves 


1380 

Incrementa el score 


1390 

Incrementa el score 


1400-1430 

Examina el teclado y/o joystick 


1440 

Efectos de sonido 
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J0'"> RFM **********»******#*»•***#** 

1 1 ''i REM * * 

1 20 REM * SPACE BASF! * 

1"?'") RFM * * 

140 RFM * «v Robin Mi v:on * 

150 REM * * 

U-Q REM * ('1 AMSTRAD SEMANAL * 

1 70 REM * * 

100 PFM * * 

190 REM ************************** 

200 RFM 

210 SYMBOL AFTER 220:DEFINT A-Z 

220 SYMBOL 220,0,60,24,60,60,60,24 

230 SYMBOL 221,0,0,58,126,126,58,0, 



240 SYMBOL 222,0,24,60,60,60,24,60, 



250 SYMBOL 273,0,0,97,126,126,92,0, 



260 SYMBOL 230,0,0,0,0,32,16,8,4 

270 SYMBOL 231,0,0,0,0,129,66,36,24 

280 SYMBOL 232,0,0,0,0,4,8,16,32 

290 SYMBOL 233,34,17,15,1,1,15,17,3 

4 

300 SYMBOL 234,36,231,60,36,36,60,2 

31,36 

3)0 SYMBOL 235,68,136,240,128,128,2 

40, 136,68 

320 SYMBOL 236,4,8,16,32,0,0,0,0 

330 SYMBOL 237,24,0,0,0,0,0,6,0 

340 SYMBOL 238,32,16,8,4,0,0,0,0 

350 SYMBOL 240 ,15,31,63,127, 255 , 255 

255 255 
360 SYMBOL 241,255,255,255,255,255, 
255,255,255 

370 SYMBOL 242,129,195,231,255,255, 
255,255,255 

380 SYMBOL 243,240,248,252,254,255, 
255,255,255 

390 SYMBOL 244,255,127,63,31,31,63, 
127,255 

400 SYMBOL 245,255,254,252,248,248, 
252,254,255 

410 SYMBOL 246,255,255,255,255,127, 
63,31, 15 

420 SYMBOL 247,255,255,255,255,255, 
231, 195, 129 


p- c ^>f;c; 


rj, .iw'D , . :j' 


4?n SYMBOL 74P.25 

252, 248, 240 

4/10 SYMPOI 249, 1 65 , 90 , 1 65 , 90 , 90 , 1 65 

, "0 , ! 65 

A^.n QvMpri| y-,o , 24 , 21 , 60 , 24 , 1 26 , 24 , 2 

55 . 24 

460 SVM.pnt ?5i, 64, BO, £4, 255, 255, 84, 

SO , 64 

470 SYMBOL 252,24,255,24,126,24,60, 

24,24 

4P.O SYMBOI 253,2, 10,42. 255, 255^.42, 1 

0,2 

490 CALL ?'.BCO?:INK 0,0: INK ?.2sB0RD 

ER fi-DIM A(5) ,B(5) :HS=2O0O 

500 MODE Is INK 2, 26: SC=0: LV*1 : SH»56 

:PEN 2: PAPER 3: CLS: LOCATE 16, 2s PR TN 

T"SF'ACE BASE" 

510 PEN liFRINT: PRINT: PR TNT "Ere* el 

capitan de la primera basp" 
520 PRINT"e«psci al terreatr* en pi 
asteroi de bel t . " 

530 PRINT: PEN 0: FT-:INT"Tu eat At: ion a 
ctua corao una base rip" 
540 PRINT"reparaci on y repostaj* p* 

ra. naves. " 

560 PR I NT : PFM 2 : PR I NT "Sir. enbar O o , 

naves host Lies de Andromeda" 

570 PRINT"se acercan a hf-1 t y no pa 

raran hasta" 

580 PRTNT"acabar ton toda competent 






ia de la Tierra"; 

600 FRINT:PFN t:PRINT"Tu minion f»; 

de-fender la base." 

620 PR I NT: PEN 0: PRINT "I W-a 7 X p«ra 

controlar tu 1 a=er y" 
630 PRINT"pul^a FNTFR para riifcparaf 

640 PAPER 2: PEN 0; LOCATE 1 4 , 24: PR IN 

T"Pulsa una tec 1 a" ;: WHILE INKEYHO" 

" OR JOY (0) >0: WEND: WHILE INKEY*="" 

AND JOY (0) =0: WEND: INK 2,7 

650 WHILE SH>-1:M0DF 0: PAPER 3s CLS: 

PEN 2 : LOCATE 7,13: PR I NT " LEVEL " ; L V ; : 

FOR Z=l TO 5000: NEXT: MODE 1 . PAPFR 

: CLS: L7=40: L7.1=0: L72-0: LZI>1 : HT=0: E 

RASE A,B: DIM A(5),R<5> 

660 GOSLIB 1440: PEN 3: PAPER 2: LOCATE 

1. 1: PRINT"! A7ER": : PEN 1 : PAPER 3:L0 
CATE 33,1: PR I NT" SCORE " : : PEN 3: PAP 
ER 1: LOCATE 1 , 25: PRINT "SHIFLDS" ;: PE 
N 2: PAPER 1 : LOCATE 32, 25: PR I NT "HI S 
CORE"; :PAPER 1 : 1 OCATE 1,2: PR INT STR 
ING*(5,32) : : PAPER 2: LOCATE 1,74 
670 PRINT STRING* (7, 37) ;: REM 2:PAPE 
R OsLOCATE 33.2:PRINT SC::PEN 3:L0C 
ATE 32, 24: PRINT HSssFOR 7-57 TO PH-t 
1 STEP -1: MOVE Z*2,16:DRAW 7*7, 3 I, 
:NEXT 

680 PAPER 0:PFN 1 : LOCATE 18,11:PRIN 
T CHR* (240) ; CHR* (241) : CHR* (242) ; CHR 
*<241> : CHR* (243) : 

690 LOCATE 18,17:PR!NT STRING* (5, 24 
1); : LOCATE 18. 13: PRINT CHR* (744 ); ST 
RING* (3. 241) ; CHR* (245) ; 
700 LOCATE 18,14:PRINT STRING* (5, 74 
1)::L0CATE 18, 15: PRINT CHR* (246); CM 
R*(241> -, CHR* (247) ; CHR* (741) ; CHR* (2-3 
8) : 

710 PEN 7: PAPER 1 : LOCATE. 19, 12: PR J N 
T CHR* (749) ;: LOCATE 21, 12: PRINT CHR 
* (249) ;: LOCATE 20, 13: PRINT CHR* (249 
)s:L0CATE 19, 14: PRINT CHR* (249) : : LO 
CATE 21, 14: PRINT CHR* (249); 
720 A 1 *=CHR* ( 230 ) +CHR* ( 23 1 ) *CHR* ( 23 
2) : A7*=CHR* (233) +CHR* (734 ) +CHR* (775 
) : A3*=CHR* (236) +CHR* (237) +CHR* (238) 
730 FEN 3: PAPER 0: LOCATE 2Q, LlsPRIN 
T CHR* (242) :: LOCATE 18, 13: PRINT CHR 
* (244) ;: LOCATE 22, 13: PR I NT CHR* (245 
)::LOCATE 20, 15: PR INT CHR* (247); 
740 HT=0: I B=l : IP=0:PEN 3 '.PAPER 2:G0 
SUB "1170: PEN 2:G0SUB 1220: PAPER 
750 WHILE HT<LV*25+25 AND SH>-1 
760 R=RND*(10-LV) : IF R< 1 THEN GOSUB 

890 
770 FOR X=l TO 4: IF B(X)=0 THEN GOT 
7B0 ELSF GOSUB 1010 
760 GOSUP 1400: NEXT 
790 GOSUB 1090:R=RND*(10-LV) : IF R< 1 

THEN GOSLIB 910 
800 IF INKEY(18)=0 OR J0Y(0)>15 THE 
N GOSUB 1280 

810 I Z2=UZ2+1:IF LZ2=6 THEN LZ2=0: I 
F LZ<39 THEN LZ=LZ+1:M0VE LZ*2,368: 
DRAW I. Z*2,382.LZC 
820 IF LZ-'O THEN LZ1 = 1:LZC=3 
830 IF 1.71 = 1 AND LZ>14 THEN PAPER 1 
: LOCATE 1.2s PRINT STRING* (2. 32) ; : LZ 
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C=] :l Z 1=0: PAPER O 
840 WEND:LV=LV+1 

850 PEN 2: PAPER 0:FOR Z=SH TO O STE 
P-1:MQVE 7*2,16:DRAW Z*2, 31 , 0: SC=SC 
+1 V: LOCATE 33, 2: PRINT SC: : SOUND 1,2 
0.1.7:F0R 71=1 TO 25:NEXT Z1,Z 
860 WEND 

870 FOR 7=1 TD 1000: INK RND*3,RND*2 
6: SOUND 1 , 7 , ] , 7: NEXT: INK 0,0: INK 1, 
24: INK 2, 2: INK 3, 6: MODE 0: PAPER 3:P 
EN 1:CLS: LOCATE 6, 13: PRINT"GAME OV 
FR"::FOR 7 = 1 TO 5000:NEXT:IF SOHS 
THEN HS---SC 
880 GOTO 500 
890 R=RND*3+l 

900 IF A(R)=0 THEN A(R)=1:PEN 2: FOR 
7=500 TO STEP -23 s SOUND 1,Z,1,6: 
NEXT: ON R GOTO 970, 9B0, 990, 1000 
910 R=l: WHILE R<5 AND (A(R)=0 OR B( 
R) >0) :R=R+1:WEMD: IF R=5 THEN RETURN 
920 ^OR 7=200 TO 400 STEP 20: SOUND 
1 ,7, 1,6: NEXT: ON R GOTO 930,940,950, 
960 

930 B(R)-=4: RETURN 
940 R(R) =36: RETURN 
950 B(R) =22: RETURN 
960 B(R) =4: RETURN 

970 LOCATE 19,1: PRINT Al*;: GOSUB 14 
00: LOCATE 19, 2: PRINT A2*;: GOSUB 140 
0: LOCATE 19, 3: PRINT A3*;: RETURN 
980 I OCATF 37, 12: PR INT A 1*;: GOSUB 1 
400: LOCATE 37, 13: PR I NT A2*; : GOSUB 1 
400: LOCATE 37, 14: PR INT A3*;: RETURN 
990 LOCATE 19, 23: PRINT Al*;: GOSUB 1 
400: LOCATE 19, 24: PRINT A2*;: GOSUB 1 
400: LOCATE 19, 25: PRINT A3*;: RETURN 
1000 LOCATE 1,12: PRINT Al*;: GOSUB 1 
400:LnCATC 1.13:PRINT A?*;:GOSUB 14 
00 : LOCATE 1,14: PR INT A3* ; : RF TURN 
1010 ON X GOTO 1020,1030,1040,1050 
1020 LOCATE 20, P ( X ): GOSUB 1080: IF B 
(X)+l=ll THEN GOTO 1070 ELSE B(X)=B 
<X)+1;PEN 3s LOCATE 20,B(X):R0T0 106 


1030 LOCATE B'. X! , 13:SQSUJ? 1080: IF B 
<X)-1=22 THEN GOTO 1070 ELSE B ( X ) =B 
(X)-1:PEN 3 s LOCATE B(X),13:G0T0 106 


1040 LOCATE 20, B < X ): GOSUB 1080: IF B 
<X>-1=15 THEN GOTO 1070 ELSE B ( X ) =B 
<X)-1:PEN 3: LOCATE 20,B(X):G0T0 106 


1050 LOCATE B ( X ), 13: GOSUB JO80:IF B 
(X)+l=18 THEN GOTO 1070 ELSE B ( X ) =B 
<X)+1:PEN 3: LOCATE B<X>,13 
1060 PRINT CHR*(21.9+X) ; : RETURN 
1070 SOUND 1 ,0, 15, 5, 0,6, 5: FOR 7=0 T 
O 24 STEP 6: INK 1 , 2 : INK 2, 7+2: INK 3 
, Z/6:F0R Z 1=1 TO 30: NEXT 7 1, 7: INK 2 
,2: INK 3, 6: MOVE SH*2, 16: DRAW SH*2,3 
0,0:SH'/.=SH7.-1:B(X)=0:PEM 2:G0SUB 12 
20: RETURN 

1080 PEN 0: PRINT" ";: RETURN 
1090 GOSUB 1400: IF INKEY(71)=-1 AND 
INKEY(63)=-1 AND J0Y(0K>4 AND .TOY 
( ) OB THEN I P=0 : K 1 =0 : K2-0 : RETURN 
1100 IF IP=1 THEN RETURN 
1110 GOSUB 1400 

1120 IF K1=0 AND K2=0 THEN RETURN 
1130 IP=1:PEN 3:FAPER 0: GOSUB 1170: 
PEN 0:GOSUB 1220: IF Kl=l THEN LB=LB 
-1:IF LB=0 THEN LB=4 

1140 IF K2=l THEN LB=LB+1:IF LB=5 T 
HEN LB=1 
1150 K1=0:K2=0 

1160 PEN 3: PAPER 2: GOSUB 1170: PEN 2 
: GOSUB 1220: RETURN 


1170 ON LB GOTO 1180,1190,1200,1210 
1180 LOCATE 20. 11 (PRINT CHR*(242):R 
ETURN 

1190 LOCATE 22, 13: PRINT CHR*(245):R 
ETURN 

1200 LOCATE 20, 15: PR INT CHR*(247):R 
ETURN 

1210 LOCATE 18, 13: PRINT CHR*(244):R 
ETURN 

1220 ON LB GOTO 1230,1240,1250,1260 
1230 PAPER 0: LOCATE 20, 10: GOTO ' 1 270 
1240 PAPER 0:LOCATE 23|l3:G0T0 1270 
1250 PAPER 0: LOCATE 20, 16: GOTO 1270 
1260 PAPER O.-LOCATE 17,13:G0T0 1270 
1270 PRINT CHR4(249+LB) : RETURN 
1280 GOSUB 1400: IF LZ1=1 THEN RFTUR 
N ELSE MOVE LZ*2, 368: DRAW LZ*2,382, 
O:LZ=LZ-l:F0R 2=30 TO 10 STEP-3:S0U 
ND 1,Z, 1,5: NEXT: ON LB GOSUB 1300.13 
20, 1340, 1360 

1290 PEN 2: GOSUB 1220: RETURN 
1300 FDR Z-l TO 4 : GOSUB 1400: MOVE 3 
10, 260: DRAW 310, 362, Z: NEXT: IF B(LB) 
>0 THEN SOUND 1 , 0, 20, 7, O, O, 1 5: LOCAT 
E 20, B (LB) : GOTO 1380 

1310 IF A(LB)=0 THEN RETURN Fl SE SO 
UND 1,0,20,7,0,0, 1 :PFM 0:FOR Z=l TO 
3: LOCATE 19, 7: PRINT' ";: GOSUB 14 
00:NFXT:GOTO 1390 

1320 FOR 7=1 TO 4: GOSUB 1400:M0VF 3 
70, 200: DRAW 580, 200, 7 : NEXT: IF B(LB) 
>0 THEN SOUND 1 . , 20 , 7 , O , O , J r> : I OCAT 
E B(LB) , 13: ROTO 1380 

1330 TF A<LB)=0 THEN RETURN n GF SC 
UND 1,0,20.7,0,0, 1: PEN O;F0R 7-12 T 
14: LOCATE 37, 7: PR I NT" ":: GOSUB 
1400: NEXT: ROTO 1390 

1.340 FOR Z=l TO 4: GOSUB 1400: MOW 3 
10,140:DRAW 310. 42, Z: NEXT: IF R(I.B)'. 
THFN SOUND 1 , 6, 20, 7, 0, 0, 15: LDCATE 

20,B(LB> :GOTO 1390 
1350 IF A(IB)=0 THFN RETURN Fl SE SO 
UND 1 ,0,20,7,0,0, 1: PEN 0:FOR 7-23 T 
25:I0CATE 19', 7: PR I NT" ":: GOSUB 
1400: NEXT: ROTO 1390 

1360 FOR 7=1 TO 4: GOSUB 1400: MOVE 2 
50,200:DRAW 50, 200, Z :: NEXT: IF B(LB) 
>0 THEN SOUND 1 , 0. 20, 7, 0, 0> 1 5: 1. OCAT 
F B (LB) , 13: GOTO 1380 

1370 IF A(LB)--0 THEN RETURN El SE SO 
UND 1 ,0,20,7,0,0, t:PEN 0:FOR Z=12 T 
14: LOCATE 1,7: PR I NT" ":: GOSUB 1 
400: NEXT: GOTO 1390 

1380 PEN 0: PRINT " " : : P (I B) =0: SC-SC 
+2*L0:PEN 2: PAPER 0: LOCATF 33, 2: PR I 
NT SC; :HT=HT+1: RETURN 

1390 A(LB)=0:SC=SC-<-l*l V:PEN 2:PAPER 
0: LOCATE ^3, 2: PRINT SC; : HT=HT+1 : RE 
TURN 

1400 IF Kl=l OR K2=l THEN RFTURN 
1410 IF J0V(0)=4 THEN Kl=l: RETURN 
1420 IF J0Y(0)--8 THEN K2= 1 : RETURN 
1430 K 1 = I NKE Y ( 7 1 ) + 1 : K2= I NKE Y < 63 ) + 1 ■ 
RETURN 

1440 PAPER 0: CIS: FOR 7=1 70 500: SOU 
ND 1,500-Z, 1,5: PLOT RND*620, RND*4.00 
, RND*2+J : NEXT: RETURN 
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PROGRAMA DEL ANO 
EN INGLATERRA 


/ATABASE 
PUBLICATIONS 


PROCESADOR DE TEXTOS 

(Ideal para escribir cartas e informes! 
Caracterfsticas: Visualization continua del 
tiempo • Contador de palabras (indicando 
las palabras por minuto) • Texto normal o 
doble, en pantalla o impresora. 

! HOJA DE CALCULO 

jlltiliza tu micro para controlar tus cuentas! 
Caracterfsticas: Cifras visualizadas en filas 
y columnas • Actualization permanente • 
Actualization reflejada instantdneamente 
en toda la hoja • Grabacion de los- 
resultados para futuras modificaciones. 

[ GRAFICOS 

jConvierte esos numeros en maravillosos 
grdficos! Caracterlsticas: Grdficos de barras 
en tres dimensiones • Grdficos de pastel • 
Histogramas. 

I- BASE DE DATOS 

jlgual que los archivos de la oficina! 
Caracterfsticas: Cargarficheros con solo 
pulsar una tecla • Clasiticacion • 
Modification • Listados • Busqueda. 

*En Castellano 

*Servimosen 
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Terminaremos hoy el estudio de este bloque de ordenes 

refiriendonos a las instrucciones de busqueda que constituyen la 

ultima parte de este capitulo. 


Programa 1 


En el programa numero 1 pode- 
mos ver un ejemplo prdctico de ac- 
tuacion de CPl. En primer lugar car- 
gamos el registro doble HL con el va- 
lor #8000, a continuacion cargamos 
en el acumulador el valor 255 y lue- 
go ejecutamos CPI; si el contenido de 
la posicion de memoria #8000 es de 
255, o sea, el mismo valor que el 
contenido en el acumulador, enton- 
ces el flag Z se pondrd a 1, por lo 
que nos imprimird una 'S' en panta- 
lla; si, por el contrario, el contenido 
de esa posicion de memoria es dis- 
tinto del contenido del acumulador, 
entonces 2 estard a 0, por lo que el 
programa nos imprimird en pantalla 
una 'N'. 


Programa 2 


El programa numero dos utiliza 
tambien la misma instruccion ante- 
rior, pero en este caso el programa 
no retornara al Basic hasta que no 
encuentre el valor 255 en alguna de 
las posiciones de memoria. Asf pues 
si al ejecutarse la primera vez CPI, 
el contenido de esa posicion de me- 
moria no coincide con el contenido 
del acumulador, entonces el registro 
doble HL se incrementard en uno y 
asf sucesivamente, hasta que el con- 
tenido de una posicion de memoria 
sea igual al contenido del acumula- 
dor. 

La siguiente instruccion pertene- 
ciente a este bloque se representa de 
la siguiente forma: 

CPIR 
(Comparar-lncrementar-Repetir) 

Tras la ejecucion el contenido de la 
direccion de memoria especificada 
por el registro doble HL se compara 
con el contenido del acumulador. Si 
la comparacion es verdadera, es de- 
cir, si el contenido del acumulador y 
el contenido de la posicion de memo- 
ria indicada por HL son iguales, en- 


u mision consiste 
en la comparacion de un byte deter- 
minado con el contenido del acumu- 
lador; si la comparacion es positiva, 
es decir, el byte lefdo de una posicion 
de memoria y el contenido del acu- 
mulador es el mismo, entonces se fi- 
\a un bit de condicion a 1 . Si la com- 
paracion es negativa, o sea, el con- 
tenido del acumulador difiere del 
contenido de la posicion de memo- 
ria, entonces el bit de condicion per- 
manece inalterado. 

La primera instruccion de busque- 
da que estudiaremos se representa 
como indicamos a continuacion: 

CPI 
(Comparar-lncrementar) 

Al ejecutarla, el contenido de la 
posicion de memoria especificada 
por el contenido de HL, se compara 
con el contenido del acumulador. En 
caso de comparacion verdadera, se 
fija un bit de condicion a 1; ese bit 
de condicion es el flag Z del registro 
F. Despues des esto, se incrementa 
HL y se decrementa BC. 

Veremos algunos ejemplos que nos 
aclarardn el funcionamiento de dicha 
instruccion. 

Supongamos que los registros HL, 
BC y el acumulador contienen los si- 
guientes valores: 

HL - #7000 (HL) - 45 BC - #0001 
A -45 

Despues de la ejecucion de CPI ob- 
tendremos el siguiente resultado: 

HL- #7001 (HL)-45 BC - #0000 
A -45 

y ademds el flag Z del registro F es- 
tard puesto a 1 ya que la compara- 
cion ha resultado verdadera. 
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tonces se pone a 1 un bit de condi- 
cion en este caso el flag Z del regis- 
tro F. Ademds el registro doble HL 
se incrementa y el registro BC se de- 
cremented 

Si el decremento de BC hace que 
este registro valga cero, o si el con- 
tenido del acumulador es igual al 
contenido de HL, entonces la instruc- 
cion finaliza su actuacidn. 

Si el contenido del registro BC es 
distinto de cero y el contenido del 
acumulador diferente del contenido 
de HL, entonces BC se decrementa 
y se repite la instruccion. 

Debemos tener en cuenta que si BC 
se pone a cero antes de ejecutarse 
la instruccion, esta se repetird 65535 
veces si el contenido del acumulador 
es distinto al de cualquier posicion de 
memoria. Tambien debemos tener en 
cuenta que despues de cada compa- 
racion se reconocerdn las interrup- 
ciones. 


Programa 3 


El programa numero tres nos 
muestra un ejemplo de como actua 
CPIR. En primer lugar cargamos HL 
con el valor #8000, y BC con #1 000, 
por lo tanto CPIR comparard el con- 
tenido del acumulador con el conte- 
nido de las posiciones de memoria 
que van desde la #8000 hasta la 
#9000, si el contenido de alguna de 
estas posiciones de memoria es igual 
al contenido del acumulador, enton- 
ces el programa nos imprimird una 
'S' en pantalla. Si, por el contrario, 
el contenido de ninguna de estas po- 
siciones de memoria es identico al 
contenido del acumulador, entonces 
el programa nos imprimird una 'N' 
en pantalla. 


Programa 4 


En el programa cuatro tambien se 
utiliza la instruccion anterior, pero, 
en este caso, lo que hace el progra- 
ma no es buscar un valor igual al va- 
lor contenido en el acumulador, si- 
no que aqui lo que hacemos es bus- 
car una cadena de numeros. 

En este caso la cadena que preten- 
demos encontrar es en primer lugar 
el cardcter 'A'; para ello cargamos 
en primer lugar el acumulador con 
ese valor, y en el momento en que 
este sea encontrado, comprobare- 
mos que la siguiente posicion de me- 
moria contenga el cardcter 'B'; si no 
es asf, volveremos a buscar otra vez 
'A' y, cuando sea encontrado, mi- 
raremos si el cardcter que le sigue es 


Codigp 
nujquina 


el 'B'; si es asf, el programa termi- 
nard imprimiendonos en pantalla la 
posicion de memoria donde se en- 
cuentra dicha cadena, en caso con- 
trario seguiremos buscando hasta 
que el registro BC sea cero, o hasta 
que la cadena buscada sea encon- 
trado. 

Debemos tener en cuenta que he- 
mos cargado BC con el valor por 
lo que el programa mirard toda la 
memoria para ver si encuentra la ca- 
dena deseada. 

La siguiente instruccion a estudiar 
se representa de la siguiente forma: 

CPD 
(Comparar-Decrementar) 

Tras la ejecucion el contenido de la 
direccion de memoria contenido en 
el registro doble HL, se compara con 
el contenido del acumulador. Si la 
comparacion es verdadera, se pone 
a uno un bit de condicion, el flag Z 
del registro F. Ademds se decremen- 
tan los registros dobles HL y BC. 

Asf, por ejemplo, si el contenido 
del registro par HL es #8000, la po- 
sicion de memoria #8000 contiene 
25, el acumulador contiene 25 y el 
registro doble BC contiene #0001, 
entonces despues de la ejecucion de 
CPD el registro par BC contendrd 
#0000, el contenido del registro do- 
ble HL sera #7FFF y el falg Z del re- 
gistro F se pondrd a 1 . No se produ- 
ced ningun efecto sobre el acumula- 
dor ni sobre el contenido de la direc- 
cion de memoria #8000. 


Programa 5 


Una aplicacion prdctica de lo an- 
terior podemos observarla en el pro- 
grama numero 5. En primer lugar, 
cargamos HL con la direccion #7000 
y a continuacidn cargamos el acumu- 
lador con el valor 255, y ejecutamos 
CPD. Si el contenido de la direccion 
de memoria #7000 es igual al con- 
tenido del acumulador, el programa 
nos imprimird una 'S', y si el conte- 
nido de esa direccion de memoria es 
distinto del contenido del acumula- 
dor, nos imprimird una 'N'. 
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Tras la ejecucion de este progra- 
ma el registro doble HL contend™ el 
valor #6FFF. 


El siguiente programa tambien uti- 
liza la instruccion anterior, pero en 
este caso lo que haremos sera com- 
parar todas las posiciones de memo- 
ria con el contenido del acumulador. 

Para ello cargamos el registro do- 
ble HL con el valor #FFFF y el regis- 
tro BC con el valor 0, con lo que con- 
seguiremos que el programa efectue 
una comparacion de las 65535 po- 
siciones de memoria. A continuacion 
cargamos el acumulador con el va- 
lor 22 y ejecutamos CPD. Cada vez 
que la comparacion sea verdadera 
se imprimira en pantalla un 1 . Segui- 
damente miramos el contenido del 


registro BC; si este es cero, termina- 
rd el programa; de lo contrario, 
efectuara la siguiente comparacion 
hasta que dicho registro contenga el 
valor cero. 

La ultima de las instrucciones de 
busqueda es la que estudiaremos a 
continuacion: 

CPDR 
(Comparar-Decrementar-Repetir) 

Tras la ejecucion de esta instruc- 
cion el contenido de la posicion de 
memoria especificada por el registro 
par HL se compara con el contenido 
del acumulador. 

En el caso de que la comparqcion 
sea verdadera, se fija un bit de con- 
dicion, el flag Z del registro F. Ade- 
mds los registros pares BC y HL se 
decrementan. Si debido a este decre- 
mento el registro BC se iguala a ce- 



ro, o bien si el contenido del acumu- 
lador es igual al contenido de la po- 
sicion de memoria indicada por el re- 
gistro HL, entonces se termina la ins- 
truccion y se pasa a la siguiente. 

Si el registro BC no es igual a cero 
y si el contenido del acumulador es 
diferente del contenido de la posicion 
de memoria indicada por HL, enton- 
ces BC se decrementa en dos y se re- 
pite la instruccion. 

Debemos indicar que si BC estd a 
cero cuando se inicia la instruccion, 
entonces esta se repetird durante 
16K si no se encuentra ninguna po- 
sicion de memoria cuyo contenido 
sea igual al del acumulador. 

Diremos tambien que despues de 
cada comparacion de datos se reco- 
nocen las interrupciones. 


c 


Programa 7 


El programa numero siete nos 
muestra un ejemplo de actuacion de 
dicha instruccion. El objetivo de di- 
cha rutina es buscar una posicion de 
memoria cuyo contenido sea identi- 
co al contenido del acumulador, pa- 
ra ello cargamos el registro par HL 
con el valor #FFFF y el registro BC 
con el valor 0. A continuacion car- 
gamos en el acumulador el valor 
255. Al ejecutarse CPDR esta se pa- 
rard cuando el contenido de cual- 
quier posicion de memoria sea igual 
al contenido del acumulador. 

El objetivo del siguiente programa 
es encontrar las instrucciones CALL 
que existen en la memoria de nues- 
tro ordenador, y ademds nos dard 
las direcciones donde se efectuan di- 
chos CALL. Asf pues si dentro de la 
memoria se encuentra la instruccion 
siguiente: 

CALL #A000 

el programa nos mostrard en panta- 
lla la direccion #A000 que es la di- 
reccion a la cual llama dicha instruc- 
cion. 

Para ello cargamos en primer lu- 
gar los registros dobles HL y BC con 
#FFFF y respectivamente, a conti- 
nuacion cargamos el acumulador 
con el valor #CD que es el correspon- 
diente a la instruccion CALL, y segui- 
damente ejecutamos CPDR. 

Si la posicion de memoria che- 
queada contiene el mismo valor que 
el acumulador, entonces cargamos 
en el registro DE los valores conteni- 
dos en las dos posiciones de memo- 
ria siguientes con lo cual tendremos 
la direccion a la cual se llama y a 
continuacion pasamos a imprimir ese 
valor en pantalla. 
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GRAMAS 




is 

iPPOGRAMA-l 








20 




Afloe 

CDSABB 

«o 

CALL BRB C A 

Aeeei 


30 


ORG 

HAO00 

A88E 

C« 

188 

RET 

Aflt'W 

2i«uao 

48 


LD 

HL, 1(8000 

A88F 

3ES3 

110 B1EN: 

LD A,-S" 

A0U3 

3ni 

SO 


LD 

A.2S3 

A81 1 

CDSABB 

128 

CALL HBB5A 

A003 

EDA! 

<se 


CP1 


AS 14 

C9 

138 

RET 

A007 

2806 

76 


JR 

2.BIEN 





A809 - 

3E4E 

88 


LD 

A,'N' 





AOOB 

CDSABB 

96 


CALL 

• BB5A 





AO0E 

C? 

188 


RET 






Aoor 

3C53 

110 

BlENj 

LD 

A.'S' 





A01 I 
A014 

CDSABB 

C9 

128 
138 


CALL 
RE T 

«eesA 

81 EN 

no or 




AOOO 
AOOO 
A003 
A086 
A008 
A0OA 
AOOC 
A80C 
A01 1 
A012 
A014 
A017 


10 :PR0GRAMA-4 


bien 

AOOF 





AOOO 
AOOO 

21FFFF 

38 
48 


ORG 
LD 

MAO 00 
HL.HFFFF 







A004 

3EI4 

40 

BUC: 

LD 

A. 22 







A088 

E0A9 

78 


CPD 




10 

1 PROGRAMA-: 


AO0A 

CC 1 2A8 

80 


CALL 

Z , UNO 



20 

; 



AOOD 

78 

98 


LD 

A, IS 

A088 


30 


ORG 

HAOOO 

AOOE 

Bl 

180 


OR 

C 

AOOO 

21 H080 

48 


LD 

HL.HBOOO 

AOOF 

28F3 

lie 


JR 

112, 8UC 

A003 

3ETF 

50 


LD 

A, 233 

A8I 1 

C? 

120 


RET 


A083 

EDA1 

48 

BUC: 

CPI 


A012 

3E31 

130 

UNOi 

LD 

A , " 1 ' 

AOO' 

CB 

78 


RLT 

Z 

A014 

CDSABB 

140 


CA1 L 

DBB3A 

A808 

18F8 

88 


JR 

BUC 

A017 

C? 

138 


RET 



ETlQUCtAS 


210080 
018018 

3EFF 

EDB1 

2804 

3E4E 

CD3ABB 

C? 

3ES3 

CD3A8B 

C? 


18 iPROGRAMA-3 

28 I 

30 ORG 

48 LD 

38 LD 

40 LD 

78 CPIR 

80 JR 


HA888 
HL.H809 
BCH180 
A. 233 


120 
130 
140 


Z.PAS 
LD A,"N' 
CALL HBBSA 
RET 

LD A.'S' 
CALL HBB3A 
RET 


1QUETAS 




18 

:PR0GRAMA-4 




20 




AOOO 


30 


ORG 

HAOeO 

AOOO 

210000 

40 


LD 

hl.o 

A003 

010080 

58 


LD 

BC,0 

A986 

3E41 

40 

BUCi 

LD 

A. "A" 

A888 

EDB1 

70 


CPIR 


A88A 

3E42 

80 


LD 

A,"B" 

A88C 

EDA1 

90 


CPI 


A80E 

20F4 

188 


JR 

N2 ,8UC 

A010 

2B 

118 


DEC 

ML 

A01 1 

2B 

120 


DEC 

HL 

A012 

CD14A0 

138 


CALL 

HEXA 

A8I3 

C» 

140 


RET 


A814 

7C 

ISO 

HEXA: 

LD 

A.H 

A017 

C01FAO 

149 


CALL 

PRHEX 

A01A 

7D 

178 


LD 

A.L 

A8I8 

CDIFA8 

180 


CALL 

PRHEX 

A81E 

C? 

198 


RET 


A81F 

F3 

208 

PRHEX: 

PUSH 

AF 

A828 

E4F0 

218 


AND 

MF8 

A022 

C83F 

220 


SRL 

A 

A824 

CB3F 

238 


SRL 

A 

A8 24 

CB3F 

240 


SRL 

A 

A82S 

CB3F 

258 


SRL 

A 

A82A 

CD38A8 

240 


CALL 

UHEX 

A8 2D 

Fl 

278 


POP 

AF 

A0 2E 

E40F 

280 


AND 

HF 

A0 30 

C430 

298 

YHEX; 

ADD 

A.'O - 

A932 

FE3A 

388 


CP 

" ! " 

A034 

3882 

318 


JR 

CNOSUN 

A036 

C407 

328 


ADD 

A, 7 

A038 

CD5ABB 

330 

NOSUMl 

CALL 

HBB5A 

A03B 

C9 

340 


RET 



sue 

A004 

HEXA 

A0I4 

NOSUM A838 

PRHEX 

AOir 

VHEX 

A030 






10 

:PR0GRAMA-3 





28 




A080 



30 


ORG 

HA00O 

Aeoo 

7109- 



48 


LD 

HL.H'OOn 

AP8.1 

311 * 


30 


LD 

A .255 

AO05 

U*A9 


48 


CPD 


A887 

2804 


78 


IR 

Z.8IEM 

ABO? 

3E4E 


H0 


LD 

A.'N' 


STIQUMTA 


A0O4 IMC, 


AOOO 
AOOO 
A003 
A004 
A088 
A09A 


19 ;PR0GRAMA-7 

29 ; 

39 


21FFFF 

810000 

3EFF 

E089 

C9 


38 
48 
78 


ORG 

LD 

LD 

LD 

CPDR 

RET 


HAOOO 
HL.KFFFF 


A988 
A888 
A803 
A884 
A808 
A88A 
A888 
A98C 
A88D 
A88E 
A88F 
A018 
A91 1 
A014 
A815 
A914 
A817 
A818 
A019 
A018 
A81C 
A01D 
AO20 
A0 21 
A824 
A024 
A829 
A02A 
A82B 
A82D 
A82F 
A831 
A0 33 
A033 
A038 
A0 39 
A83B 
A03D 
A03r 
A041 
A043 
A044 


BUC 
PRHEX 


18 ; PROGRAMA-fc 
28 ; 

30 


21OA50 

8I0A08 

3ECD 

ED89 

E5 

C3 

23 


5E 

23 

54 

CD1CA0 

CI 

El 

2B 

78 

81 

20EB 

CP 

7A 

CD2AA0 

7B 

CD2AA0 

3E0D 

CD3DB8 

C» 

F5 

E4F0 

CB3F 

C83F 

CB3F 

CB3F 

CD3BA0 

Fl 

E48F 

C430 

FE3A 

3882 

C407 

CDSABB 

C? 


SO 
48 


128 
130 
148 
130 
148 
170 
188 
190 
288 
210 
228 
230 
248 
2S0 
248 
270 
238 
298 
308 
310 
328 
330 
348 
350 
348 
370 
388 
390 
488 
410 
420 
430 


ORG 

LD 

LD 

LD 

CPDR 

PUSH 

PUSH 

INC 

INC 

LD 

INC 

LD 

CALL 

POP 

POP 

DEC 

LD 

OR 

JR 

RET 

LD 

CALL 

LD 

CALL 

LD 

CALL 

RET 

PUSH 

AND 

SRL 

SRL 

SRL 

SRL 

CALL 

POP 

AND 

ADD 

CP 


baboo 

HL.H588A 
BCI8 
A. "CD 

HL 
BC 
HL 


D,(HL) 

HEXA 

BC 

HL 

HL 

A, 8 

C 

NZ.BUC 

A,D 

PRHEX 

A,E 

PRHEX 

A, 13 

itBBSO 

AF 


JR 
ADD 
CALL 
RET 


C.NOSUM 
A, 7 
HBBSA 


A0O4 
A02A 


HEXA 
WEX 


A01C 
A83B 


MDSIW A843 


18 REM * PROGPAMA 1 • 

20 TOR N*J.A00H TO ft-ABIS 

38 READ AsSUHA SUMAtA 

40 POKE N.A 

38 Nt'T 

48 IF SUMa '.AbE THIN PRINT "ERR 

fcj-l DATAS" 

70 DATA 33,8.128,42.253.237,141 


80 DATA 48.4,42,78,205.98,187 
«0 DATA 201,42.83,205,98,187,201 


18 REM H PROGRAMA 2 « 

20 FOR N-8<AOOO TO &A00A 

30 READ AiSUMA-SUMA.A 

40 POKE N.A 

30 NEXT 

40 IF SLrMA^k547 THEN PRINT "ERROR 

EN DATAS" 

70 DATA 33.0.128.42.235.237,141 

80 DATA 208,24, 231 .0.8.0 .8 


PFM * FROGRA1IA 3 * 
FflR N &A000 TO CAO I 8 
READ A:SUMA'SU"^'A 
POKC N.A 
IIE>-T 

IF 3UMA04A2E THEN PRINT "ERRO 
DATAS" 

DATA 3'- . 8 . I 28 . 1 . . I 4 , 42 
DATA 233.237, 177.40.*. 42, 78 
DATA 283.98,187,201.62.83,203 
8 DATA 90. 187,281 .8,0,0.8 


1 8 REM • PROGRAMA 4 ♦ 

2lt FnR N-&A000 TO £A03C 

38 READ AiSUMA-SUHAtA 

40 POKE N.A 

38 NEXT 

49 IF SUMBO&ID33 THFN PRINT 'ERROR 

EM DATAS' 
70 DATA 33.0.0. 1 .0 ,0 ,42 
80 DATA 43,237.177.62,64,237.141 
90 DATA 32,244,43.41.205.22.160 
100 DATA 201,124,203.31,148,123,203 
110 DATA 31,140,281,243,230,240,203 
120 DATA 43,203,43.283,43,283,4-3 
138 DATA 283.48.140,241,230,10,198 
148 DATA 48.254.56,54,2,198,7 
150 DATA 285,98,187,281.0,0,0 


1 REM * PROGPAMA 3 • 

28 FOR N-AAOOO TO fcAO 1 3 

yt READ A:SIMA-SUMA*A 

48 POKE N.A 

50 NEXT 

40 IF SIMAO8.A05 THEM PRINT "EtyuR 

EN DATAS' 

70 DATA 33.8.112,42.255,237.169 

80 DATA 40.4.62,78.205,98.187 

98 DATA 201,42,83,285,98,137,201 


10 REM ■ PROGRAMA 4 " 

20 for N-*Aeee TO &A8I8 

30 READ A:SUMA«SUMAtA 

40 POKE N.A 

58 NEXT 

48 IF SUMA03.BA9 THEM PRINT -ERROR 

EN DATAS' 

70 DATA 33,233,233.1,0.0,4? 

30 DATA 22,237.149,284.18,140,120 

90 DATA 177,32.243,201,42,49,285 

100 DATA 90, 1B7, 201 ,0,8,0,0 


10 PEM • PROGRAMA 7 • 

20 FOR N SAO00 TO B.MUP8 

30 READ A:SUMA-SLMA»h 

40 POKE N.A 

50 NEXT 

48 IF SUHA' S.SLC THEN PPII1T 'E 

EN DATAS" 

70 DATA 33,255,255.1,0,0,42 

80 DATA 255,237,183,20 1.0,8,8 


18 REM « PPDGRAMA 8 # 

28 FOR N-&AO00 TO 8(A047 

30 READ A:SUm«SUMA+A 

48 POKF N.A 

30 NEXT 

60 IF SUMAO«<23CE THEN PRINT 'EPROR 

EN DATAS" 
70 DATA 33.18,80.1 ,10,0,42 
80 DATA 205, 237, 1 83, 229, 197. 33. 35 
90 DATA 94,33,86.203.28,140,193 
100 DATA 223,43,120,177,32,233,701 
110 DATA 172,283,42, 1 <0 ,123,203,4 - 
120 DATA 16(1,42,13.205,93,187,201 
130 DATA 243, 700, 240, 203. 43, 203, 63 
148 DATA 283,43.203,43,283,59,148 
158 DATA 241,238,15,198,48,254,58 
140 DATA 56,2,198,7,205,90,187 
170 DATA 201,0,0,0.0,0,0 
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Slnduda 
olguno 


A 


. troves de esta seccion se pre- 
tende resolver, en la medida de lo 
posible, todas las posibles dudas 
que «atormenten» a todas las 
personas interesadas en el mundo 
del AMSTRAD, sean o no poseedo- 
res de uno y, si lo son, se encuen- 
tren en cualquier nivel de destreza 
en su manejo. 

Semanalmente, aparecen en estas 
pdginas las consultas de la mayor 
cantidad de usuarios posible; ello re- 
dundara en un mejor servicio y en 
un contacto mas estrecho entre to- 
dos nosotros a traves de la revista. 

SIN DUDA ALGUNA esta 
abierta a todos. 


Mi problema es el siguiente: tengo 
un programa elaborado totalmente 
por mi, que trata sobre la contabili- 
dad casera, es decir, desde luz, te- 
lefono, gas, etc., hasta el gasto en 
gasolina y otras cosas del coche, pe- 
ro mi programa no funciona con per- 
sonas que no tengan algo de idea de 
programacion, es decir, los datos de 
consumo y tarifas hay que escribir- 
los en el propio programa para que 
luego salgan a la pantalla con todos 
los demds datos (meses, etc.). 

Podn'a de alguna manera sencilla 
introducir en el programa una subru- 
tina, con la cual al escribir en la pan- 
talla y en la posicion debida queda- 
ran los datos «escritos» en el progra- 
ma. jEs complicado? 


Fernando Martin Duarte (Madrid) 

Por el contenido de su carta, de- 
ducimos que ha debido usted intro- 
ducir sus numeros en sentencias DA- 
TA y luego leerlos mediante la orden 
READ. Si realmente ha escogido es- 
te metodo, lo unico que necesita es 
crear una serie de matrices, preferi- 
blemente alfanumericas (de caracte- 
res), e ir colocando en ellas los da- 
tos que vaya leyendo de las datas. 

Si ademas necesita que se intro- 
duzcan mas datos al programa, use 


la sentencia INPUT, y si los nuevos 
datos requieren ser grabados para 
uso posterior, metalos en las matri- 
ces. 

Estamos suponiendo que su CPC- 
464 no lleva unidad de disco; si la lle- 
va, todo seria mucho mas sencillo, 
grabando la informacion en ficheros 
secuenciales, segun explica clara- 
mente el manual. 

Si esta usted empleando para ma- 
nipular sus datos un metodo distinto 
del expuesto anteriormente, le reco- 
mendamos use este, dado lo senci- 
llo que resulta. 


-PUBLICIDAD- 


mp- LMeiu Lznine 


I 


\GABINETE DE INFORMATICA 

Clases de Informatica 
sobre AMSTRAD 

Exclusivamente individuales. 

Ordenadores AMSTRAD y 

perifericos 

Los mejores precios 

Software a la medida 

ZURBANO, 4^?410 47 63 
28010 MADRID 


Caracteristicas Contabilidad AMSTRAD 
PCW-8256 37.500 ptas. 

I. — Poslbilidad de abrlr 500 cuentas y un total de 2.000 asientos, 
(por cada cara del disco). 

2 — Posibilidad de reducir el numero de cuentas y aumentar el de 
apuntes en la proporcidn 1/3 (cada cuenta no abierta admite 3 apun 
tes mas). Ej: 250 cuentas admiten 2,750 apuntes, 50 cuentas, 3 500 
apuntes, etc. (por cada cara de disco). 
3.— Posibilidad de Irabajar con cuentas de hasta 4 niveles de 
integracidn. 

4.— Posibilidad de modihcar o dar de ba]a apuntes integrados a ma- 
yor. 

5.— Posibilidad de programar el balance de situacion. 
6,— Posibilidad de programar el cierre de la contabilidad. 
7.— Posibilidad de programar las cuentas de explotacion. 
8.— Posibilidad de efecluar un cierre ficticio de la contabilidad 
9.— Posibilidad de renumerar los apuntes por fechas. 
10.— £|ecucion de balances comparativos. 


TE OFRECEMOS EL NUEVO PLAN GENERAL CONTABLE CON I.V.A. 


11.— Posibilidad de hacer de forma automatica asientos dobles o 
multiples. 

12 — Acceso ultrarrapido para ejecucion de exlraclos (tiempo de 
acceso medio a un asiento=0,5 segundos) 
13.— Maneio facil con menus interactivos para el usuario. 
14.— Posibilidad de definir formato de pagina para impresora. 
15.— Posibilidad de autogobernar un disco sin extractar para CON- 
TINUAR la contabilidad en mas de un disco. 
16.— Posibilidad de relanzar balances comparativos por meses. 
17,— Posibilidad de regenaciin de la contabilidad. 
18— Posibilidad de programar conceptos automatlcos, 
19.— Dotado de medidas de seguridad para evitar perdida de da- 
tes ante cortes de (luido eleclrico. 

20.— Clave de acceso restringido a ciertas partes del programa (cie- 
rre de la contabilidad, borrado de discos, etc,) 
21.— Posibilidad de hacer copias de seguridad de los ficheros al 
terminar la sesion. 

22.— Servicio de Soltware postventa para atender dudas. 
23.— Garantia ante fortuita degeneracidn del disco de programas. 

Caracteristicas Contabilidad AMSTRAD 
CPC-6128 y CPC-664 13.900 ptas. 

1,— Creadon de cuentas contables con limite maximo de 500 cuen- 
tas. 


2 -Inlroduccidn de asientos, hasta un total de 1.000 como maximo. 

3.— Modilicacion y cancelacidn de cuenlas y asientos, 

4.— Movimienlos historicos de hasta 2.000 apuntes. 

5.-Movimientos hisldncos de datos hasta 2000 apuntes, 

6.— A»enlos simples o dobles, a su elecclon. 

7.— Listador por pantalla o impresora. 

8.-Ubro diarlo, listados de cuentas. listado del PGC, balance de 

sumas y saldos, balance general de cuentas, balance de situaciOn, 

cierre del ejercicio (Explotacion, Resultados Extraordinanos, Per- 

didas y Ganancias y Reparto de beneficios,). Control del IVA asi 

como todos los listados Historicos de Cuentas y Movimienlos que 

desee efecluar. 

9.— Ordenacidn de cuentas. Actualizacion de datos y descarga de 

movimientos, con toda la informaciin Conlable para la aplicacidn 

del IVA 

Disponemos de un equipo de software a 
tu servicio. Hacemos programas a medida. 
RECUERDA: -Damos solucion a la 
pequefia ymediana empresa. 
Torres Quevedo, 34 Tel, 967/22 794 

02003 ALBACETE 


MICRO DEALER centro de distribucion especializada en amstrad 


Comandante Zorita, 13 
Tel. 233 07 35 ■ 07 81 
MADRID 28020 


TODO EN: 
Joysticks 
Cables 
Monitores 
Diskettes 3" 
Cassettes turbo 
Unldades de disco 


Impresoras 
Interfaces 

Ampliaciones de memoria 
Teclados profesionales 
Cintas virgenes 
Diskette 5 1 A DCDD 


MAYORISTAS DE: 

Amstrad 

Commodore 

Star 

Seikosa 

Sinclair 
Spectravideo 
Newprint 
Dk'tronics 

PRECIOS DE OFERTA 
EN IMPRESORAS: 
20% Dto. sobre PVP 
jjINFORMATE!! 

jjBUSCAMOS DISTRIBUIDORES 
EN PROVINCES!! 


NOVEDAD 
Reserve su 
Amstrad PCW8256 
PVP 129,900 


PIDA LISTA DE PRECIOS 
INFORMATE EN MICRO DEALER: 
Tel. (91)233 07 81 
(915)23 30 35 


.OS ME JORES PROGRAMAS 
PROFESIONALES DEL MUNDO 


precis 



PARA AMSTRAD PC 


STRAD CPC 6128 

IIT DIGITAL 


RESEARCH 

The creators of CP/M " 


Uno de los mas presligiosas y completes '"hojas de cdlculo* del 
mundo. Ropido y versolil, ofrece prestaciones, como lo de relocio- 
nar vorios hojos enlre si, que no son frecuentes. Lo copocidod de 
ejecufar orderiociones olfobe'licos o numericas, sus posibilidades en 
cuanto a formoto en pontallo y en impresora, los menus en ponfo- 
llo y lo potencio de cdlculo, son carocldristicas dislintivos y desto- 
cables do MULTIPLAN. 
PVP: 15.100.- Pts. (+ IVA) 


Reconoc'do como el esldndar mundiol de los lenguojes inlerpretes 
pora microordenadores. Facil de oprendcr y ulilizar, 
PVP: 15.100.- Pts. (+IVA) 


Totalmenfe compalible con el M8ASIC Interpreter pero con una ve- 

locidod de ejecucion de 3 a 10 voces mas rdpida. Troduce el codi- 

go fuente o cddigo objeto y permite uno ulilizocion mas eficaz del 

espocio. 

PVP: 15.100.- Ptas. (+ IVA) 


£1 lenguaje mos utilizado en oplicaciones cinetificos y de ingenierip, 
es uno potente implementacidn del ANSI-FORTRAN X3.V 

PVP: 24.900.- Ptas. (+ IVA) 


Un complete paquele de desorrollo que incluye: MS-MACRO AS- 
SEMBLER; MS-LINK, MS-LIB, MS-CREF y DEBUG. 

PVP: 12.000.- Ptas. (+ IVA) 


A AshtonTate 


Programa interodivo para lo creation y edition de grdficos y dio 

gramas. Tres elementos basicos — lineos, texro y simbolos— son uli- 

lizados poro producir grdficos de alia colidad... logos, diagromos 

de bloques, diagromos de flujo, etc. Los simbolos, lipos de letro y 

estilos de lineas, pueden ollerorse y modificarse o volunlod del 

usuario. 

PVPi 15.100.- Pts. (+ IVA) 


Generador de grdficos — de lineos, borras, columnas y de pastel- 
de muy sencillo monejo. Permile incluir texlos y leyendas con gran 
t'lexibifcdad de creocion y edition, 

PVP: 15.100.- Ptas. (+ IVA) 



Lenguaje COBOL segun el estdndor ANSI, especiolmen' 
le litil para monejor grondes volumenes de dotos. 

PVP: 48.500.- Ptas. (+ IVA) 


El Generador de Programas por excelencia. Permite creor bases de 
dolos relacionados o portir de comondos sencillos y sin requerir co- 
nocimietitdi de prograjhaaarf Lot aplicddones de dBASE II son ■- 
contobles y coda usuario puede desorrollor los que mejor se adap- 
ter o sus necesidades: ficheros y mailings, contabilidades, ndminos, 
control de costos, control de almocen, facturacion, etc. Amptiamen- 
le acreditodo como uno de los progrcmas mas utiles y recomenda- 
"Klfls da euontos exisl en pora microordenadores Manual en cash- 
llano. — 

PVP: 17.800.- Ptas. (+ IVA) 


£1 mos rdpido PASCAL existente con implementacion complela del 
sldndar ISO. Un compilador de codkjo nolivo que genera en for- 
moto reubicable pora usor con su monlodor de enlace (linker). 

PVP: 15.100.- Ptas. (+ IVA) 


Version mejorodo del closico lmg,uoj« CBASIC, con moyor veloct- 
dad de ejecucion y oltomente flexible disenado especialmenle para 
el desorrollo de progromos de geslion. Incluye el linker LK-80, que 
cambio lo solida del compilodor con lo rulinas de biblwleco y per 
mite el encodenomiento de mddulos 

PVP: 15.100.- Ptas. (+I.VA.) 





C/ Duque de Sesto, 50. 28009 Madrid 

Tel.: (91) 275 % 16/274 53 80 

(Metro O'Donell o Goya) 


SOFTWARE: por cada programa GRATIS j jl BOLIGRAFO CON RELOJ DE CUARZO! 


HYPER SPORTS 2.300 ptas. 

TORNADO LOW LEVEL 1.950 ptas 

EXPLODING FISTT 2.300 ptas 

JUMP JET 2.495 ptas. 

ZORRO 2.600 ptas. 

SABREWULF 1.650 ptas. 

GHOSTBUSTERS 1.950 ptas 

GYROSCOPE 2.300 ptas. 

HYGHWAY ENCOUNTER 1.750 ptas 

HIGHWAY ENCOUNTER DISCO 3.300 ptas 



DYNAMITE DAN 2.100 ptas 

RAID OVER MOSCOW 2.300 ptas 

THEY SOLD A MILLION 2.500 ptas 

FIGHTER PILOT 1.975 ptas. 

MASTER OF T. LAMP 1.950 ptas 

NIGHTSHADE 1.950 ptas 

HACKER 1.950 ptas. 

SUPER TEST 2.300 ptas. 

MAPGAME 2.700 ptas. 

TONADO LOW LEVEL DISCO 3.300 ptas 


/JOYSTICK QUICK SHOTT II.. 2.295 ptas. 
JOYSTICK QUICK SHOT V . . . 2.595 ptas. 


PC-COMPATIBLE IBM 256 K 

MONITOR FOSFORO VERDE 

2 BOCAS DISKETTE 360 K 

SOLO jj243.900U 


TAPA METACRILATO PARA 
TECLADO |j1.900 ptas.!! 


L 


UIMIDAD DISKETTE 5.25" 
jj45.900 ptas.!! 
(incluido controlador) / 


Z 


LAPIZ OPTICO 
ij4.900 ptas.!! 


Z 


MPRESORA MARGARITA 
H49.900 ptas.!! 


z 


CASSETTE ESPECIAL 
ORDENADOR 5.295 ptas. 


/ 


PRECIOS SUPER-EXCEPCIONALES PARA 
AMSTRAD CPC-472 Y CPC-6128 , 

jiLLAMANOS, TE ASOMBRARASM / 


IMPRESORAS 
H20% DTO. SOBRE P.V.P.H 


SINTETIZADOR DE VOZ 

Y AMPLIFICADOR: 

7.900 ptas. 


z 


MODULADOR TV 
8.400 ptas. 


z 


INTERFACE DISCO 
5 1.4" 5.300 ptas. 


CINTA C-15 ESPECIAL 
ORDENADOR 85 ptas. 
DISKETTE 3" 990 ptas. 


UNIDAD DE DISCO 3" CON 
CONTROLADOR: 49.900 ptas. 



Libros: 

Curso autodidactico Basic I 2.525 ptas. 

Curso autodidactico Basic II 2.525 ptas. 

Programando con Amstrad 2.195 ptas. 

Juegos sensacionales Amstrad 1.950 ptas. 

Hacia la Inteligencia Artific 1.295 ptas. 

Musica y sonidos con Amstrad 995 ptas. 


Pedidos contra reembolso sin ningun gasto de envio. Tels.OD 275 96 16/274 53 80, o escribiendo a Micro-1.C/ Duque de Sesto, 50. 28009 Madrid 



Te encuentras a los mandos de la nave "Air ":l mas complete programu de musica crea 

craft". En una perfecta maniobra debes des- do para el AMSTRAD. Permite crear sonidot 

pegar del portaviones. (Excelente version si- melodias y convertir tu ordenador en la me 

mulador vuelo-combate). P.V.P.: CASSETTE di "cajo de musica'. 

2.200 pts. DISCO 2.900 pts. 2.200 pts. DISC O 2.900 


Programa que permite as una manera sen Programa de utilidad qua p^mitn realize 
cilia la creacifin de pan(pllas con grafico? , copias de s°guridad (back-ups) a distmta. 
dotarles de movimiento, acompanadosjle ' velocidodes (baudlos). P.V.P.: CASSETT 


i *] KiH^y^Hi'i'i 'i r 


ZED1& 






SSL-! £2 i 
i- tc™ t as."* j 
f^Sfri Eta] 





Edltor-desensamblador del Z-80, para e' 
programador mas avanzado. P.V.P.:J?A ? 
SFTTE 1 900 pK DISCO 2.60P pts. 


Vnpliacion del lenguaje Basic. Conjunto de 
30 nuevas instrucciones (fill, circle, protec) 
jara ayudar en la programacion. P.V.P. ■ 


nj^iaSisiS^XUtAM 


La mejor u'iiidad para el major conocimien : 
to del disco. 

(Copias de disco, Disk map, Disk trar 1 ' «t,- 
'noftOOpts. 


p »sar los mejores programas ae anra a 
isco ya no es problemo. Con Transmat a 
re proceso sard fdeil > sencillo. P.V.P.: DIS- 
CO 2.600 pts. 


OTROS PROGRAMAS EN STOCK 


WORLD CUP FOOTBALL P.V.P. CASS. 1 .800 pts. 
BATLE FOR MIDWAY P.V.P. CASS. 1 .800 pts. 


FIGHTER PILOT 
SURVIVOR 
MOON BUGGY 
TECHNICIAN TED 
FRUITY FRANK 
DATABASE 


P.V.P. CASS. 2.200 pts. 
P.V.P. CASS. 1.800 pts. 
P.V.P. CASS. 1.800 pts. 
P.V.P. CASS. 1.800 pts. 
P.V.P. CASS. 1.800 pts. 
P.V.P. CASS. 2.100 pts. 


LOGO TURTLE GRAPHICS P.V.P. CASS. 2.400 pts 
TASCOPY Y TASPRINT P.V.P. CASS. 2.600 pts 



envienosaMICROBYTE ftS - 

P.° Castellana, 1 79, 1 .° - 28046 Madrid 


A£e*jos_ 


Direction 


Poblacwn 


Telelono 


ENVIOS GRATIS 


JUEGO 


Precio I TOTAL 


PREC10 TOTAL PESETAS 


Incluyo lalon nominative- 
Comra-Reembolso 


G 

n 


FONT EDITOR 


P.V.P. CASS. 2.600 pts. jfjsticado programa de dibujo qu^ permite tratar la pantolla del AMS 
nun nice l ann .*. TRAD como un sencillo tablero de dibujo, sus resultados son exnetaculc 
P.V.P. CASS. 1 .900 ptS. re$ p v p . CASSETTE 4 500 pts . disco 5.200 ptf 


Pedidos par telefono 91 ■ 442 54 33 / 44 


1 


Elunico ordenador 

concebido para sustituir 

a la maquina de escribir. 



129.900 

Pts.+IVA 



D 
I 


*#/j 


'"//A 




AMSTRAD PC W 8256 


UN COMPLETO EQUIPO QUE INCLUYE: 

1 Unidad Central (256 K RAM) •Teclado en castellano 
1 Unidad de disco ( 1 80 K por cara) • Pantalla de alta 

resolucion • Impresora alta calidad (NLQ) 
1 Programas:«Procesadordetextos,sistema Operative. 

CP/M Plus, Mallard Basic con JET SAM para ficheros 

indexados. lenguaje DR LOGO. 


PROGRAMAS PROFESIONALES 

1 Contabilidades • Almacenes • Facturacion • HOJAS 
DE CALCULO: Multiple. Supercalc 2. Cracker. 
Plannercalc. BASES DE DATOS: DBase II, Amsfile. 
Flexifile. Boriar. LENGUAJES: Cobol, Fortran. Pascal 
MT +. Pilot, etc. 


SOLICITE DEMOSTRACION EN: 

Division informatica de SiCoikJnfbo, Divisi6n 0n-|inede GAlfRIAS, 
Tiendas escecializadas en informatica y Equipos de oficina. 

NOTA: El Amstrad tambien puede ser utilizado como "Terminal Inteligente" 
de grandes equipos informaticos. 

~ GRUP0INDESC0M 3 
Avda del Mediterraneo, 9 28007 Madrid Telex 47660 Tels.: 433 4548 - 433 48 76 - FAX - 433 24 50 Delegacion en Calaluna C/ Tarragona. 110 Tel 3251058 08015 Barcelona 



